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A SYSDATA GANHA 

DINHEIRO FAZENDO 

MICROCOMPUTADORES 

COMO O SYSDATA IIL 

ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 



SYSDATA III 

de urn grande micra 



Compnt Jvel com o TRS-60 
MafieloIIhiaKadiaShack- 
Gahinnto, toclaiJD e CPU ein 
Tn6du Ins ind epHnd en Ees. 
Versnfis df? 64 a 126 KBvtBS de 
RAM.ieKBylesdeiROM. 
T^c;] f)do p rnf iss to nal rq m 
num'^rico rsrduztdo e 4 teclas 
dtfun^o^s- 

SiALema uperdciDnal de disco 
DOSiriouCF^M2.2, 
Caracleres ^rificDS. 
VEd^ compc^ilf) cam 18 MHZ 
dcfaJKEidc! pBssagem. 
^ijfftn para imprQAsora 
para l(! In. 

SYSDATA III 

So n ware disponivel 
variado. EscoLha o scu. 

Vidi?[>[Li>LUi(Tfc:LE^]^|. 

ProfeluCirHrtdao 

ItiMBRATEL). 

Rede JeldtfK. 

Si^^lensa Gerenciador de 

Banco duDadtJfifSCliDl. 

UBASEH. 

Ccmpiljidor&sCtcibol. 

FDrlrfiiii, Pascal, Basic, Forth, 

Lisp fi Pi 11:31. 

Ffliiar do rcKtc^. Edilor de Assembler. 

Desassembldtlnt. 

Df^buf^ador. 

Visicalc 

Words! ar, 

e intnioisaulras. 





SYSDATA III 

CaracteHsticas tectiicas. 

Para aquelcs que querent 

saber ludCL 

Total trympalibiiidadG como 

TRS^SO Modelo ] 1 1 da Radio 

Shack. 

Prncessad or Z-flO-A , 

Vldeodcl6x64ou1&s3£ 

jlinhfls xcolunasl. 

AllmenlaLflode 11(3 V (y\x22n V. 

T^ifldoalfanum^ricade 

g9tMdas. 

TecEado liumfiricQ rcduzido 

com 4 teclas de Ft]nf;6«s. 

Cr^ficosctiETk 128x4flpQnlos 

novfdea 

Aceita aiA duas RS'23Z-C 

(Sihcrunasou Assincronas)- 

Modem iDpclonalj. 

Saldaparaloiapjira 

impressGra. 

Placa cunlruiadora para at^ 

4drivRsdc 5 e Vi", dupla 

densidade [38D KBylespor 

FaceJ. Face simples (dupla face 

opciunall- 

Op^des futuras: 

Vfdeotumpativtfl IgxtiH. 

16x32,24 X 80 Qki24 3(40 

(]iiihas?< col Unas |. 

E\pa nsBO a (i^ 2 56 K B yles 

deHAM 

Alta rcsolu^aa |;[^fica ecor 

liilerFace para acioiiamontodfi disco rigido 

( Wi nchusler | de 5, 1 Q on 20 M B > te.->. 

Clock dobradoH.UMH2| 

Tbia] compatibilidade com a TRS-BO 

Mod. IV. 
CPiM versao 3,0. 
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Sysdala ulul Fflnicq kltle. 1 1 55 - Av. J'^tflcmbu, TBS - i-flcaembil - SP - Font; 10 J 1|6Z6,4(I77 




Maleta 

Malela pord Iransporlie 

a prote^^ao do seu 

compulcdor Emvlntl. 

com lorragao mlerna e 

divlsdria para disqueies 



Interface serial de 
comunica[;des. pcdrao 
HS 232C. ligacdo aircrves 
de MODEM, ou 
compiiiador/compulador 
OM atnda impressora senal 





Viiiiion 



P 




Graph + : 



Interlace paralela para 
impressora com lun<;6es 
graricGS e comandos 
proprios pare as Impressoros 
noctonais- 



^64Ke t128Ki 

Expansoes de Memona HAM 
com a posslbUidad^ de 
simulagdo de "disfedrtve" 

de alta velocidad^ 
(pseudo- disco) 




MonitotU 

Monitor de video com alta 
deElni<;do para t^xlos {4G ou 
e0colunas)egraljcos Tubo 

de 1 2 ".losloroverde.com 
rndscara anli-retlexo. 




Buffer: 

Memona adicional 
armaienadoro d© 
caraderes para impressora. 
Ilbero o computador para 
U50 anquanlo os dados sdo 
possados para a impressora. 



Impressoia 6010 

BidirecionaL 1 00 C PS, 50 
colunas ( 1 52 com carader©$ 
comprimldos) 




Impressora 
GrailX'SO 

Gralica. bidirecional. SOCPS, 
SO colunos { 1 32 com 

caracleres comprimidos] 



. rojetados visafidtjcmscfo, de lonna a 

alender e acompo crescimento das 

necessidades do usiis produtos Unitron 

destacam-se pela ir^^e, piesenie em 

cadi^e. 




niiTon TX 



^md^reuniras « 

ItwwUmn An II raci^nsticasdoAPII. 

vnirfC7Jl M,p AA ^^^ ^ Teclado ] nleligente 

Compulador pessoal (tron. que. diietamente. 

Microprocessador 6502. ^t^o g^ mdquinas de 

de memona RAM e 1 2K d^^^ver lomece 

memona ROM. lecladoctjiijscuias/rmnusculas 

maiusculas e minuscuJas [ceniuacdo da lingua 

8 conectores para miguesa. Apresenia a 

expansoes resolugdo radensllca especial de 

grdljca superior rmitlr a programagdo de 

a 50.000 ponEos, saida pardca iecla com comandos 

cassete e conlrolador de fungoes delinidos pelo 

iogos. Kirio 




D4/B 

Interlace para controlar at^ 
A disk-drives de 8". lace 
simples ou duplo (aid 1 . 1 

Mbytes por disquete) 
Permlle a lormala<?6a de 
disquetes no podrdo 
IBM 37^0 




Disk'DriVB5l/4" 

Face simples, densidade 
simples, U3 Kbytes por 

dliC[uet$ 

Disk-DdveS'' 

Face dupla, dupla 
densidade.C crtd 1 100 Kbytes 

piordisquete^ 





ZBOi 

Modulo com 
rniicroprocessador Z-flO 
adicionol. permitindo 
uhliza^do de Slstema 
Operacional CP/M 




Interlace controladora para 
cue duas unldades de disco 
llexiveldeS MA". 




Acessbrio para liga<;do do 
Ap n direlamente d antena 
da TV. 




Pal'M: 

Modulo de cores., slslema 
PAi'M. Ugaqdo direta a 
anlena de (elevisor a cores 
(VHF - canais 3 ou ^ ) ou 
monltores de video colorldos 
PAL-M, 



BO colunas: 

Modulo para mudanca 
do padrdo d© video para 
flO colunas x 24 linhas. 




GFIB 

Interlace para conexfio 
a equipamentos de 
ln$trjmentac;do com BUS 

padrdo IEEE-48S, 




aa^^^"* 



1 



ROM: 

Carldo de memdrios EPROM. 
fxaro mudanco de 
linguagem ou programas 
"resldentes" 



-&D Slsti-mas Eletronicos S.A. 



Unition Software: 
"aselegao dos melhores" 



c 

^\ ottware nunca faltou 
1^^ para o Unitron Ap U 
O problema estava em como 
escoiher o mais contiavel o 
mais adOQuado para cada 
caso. For isso surgiu a Unitron 
Software. Uma seleqdo dos 
melhores program as 
existentes no mercado. sujeitos 
a rigorosos testes e tinalmente 
aprovados para tambem 
levarem o seta de Quahdade 
Unitron Eos melhores sdo: 



lliid 





Sup&T'Visicalc: 

PlanJJha d© calculoa outomdrticos, 
com larguras de colunas ajusltiveis 
Individualmenle Permtle (aier 
projeqoes com os dados aluais. 
Aplicagoes financeiras. fluxos de 
caixa, eslimcdivos de custos. 
projeqoes de vendos. cronogramas 
de desenvolvimenio de projeios, eic 

DlC: 

Programa Diciondrio; compara 
todas as palavras int&grantes de 
urn arquivo gerado por um 



processador de lexlo, com um 
disco- dlciondrio. Corrige. acelld 
adi^oes. conta palavras, elc. 

Janela Magica 2: 

Programrici processador de leiclos, 
ideal para redacao e edi^ao de 
canos. conlralos, memorials 
descillivos. etc . 

Permite a gravagdo de texlos em 
disqueles. numeragdo de paginas. 
insergdo de titulos. justilicat^do. 
busca de palavras. alem da 
impressdo em letras maiu5Cula$ e 
minusculos. com todos os caraderes 
de lingua portuguesa gerados pelo 
UnilronT.I.. 

SPA: 

Sistema Pessoal de ArquivOr em 
lormuldrios cuja eslmiurci e deilnlda 
pelo TJsutSno. Inter-relaclona itens. 
peimile buscas especiliCdSr elc 

PassoaFasso: 

Cursode BASIC onde as instru^oes 

e camandos de progixamaqdo sdo 
assimilados gradalivamente. 
atraves da atuat^ao do usudrio 
sobre as propostas apresentada$. 
Inclui grdljcos animadc*. edic^^o 
de textoj. manipulaq<io '"strings'" e 
eteilos sonofos. 

Folha de Pagamento: 

Programa espeeilico para o sistema 
brasileiro. soluciona os problemas 
de gestdo pesscal de pequenas e 
medios empresas Cadastra ale 200 
tuncionoilos por disquetes. Emile os 
seguintes relotorios. Hollerith. 




Resumo ParcialToial da Folha, 

Relac^o Eancaria. [niorme de 
Rendimentos. RAIS, Relac^do de 
Empregodos. Guia de 
Recolhimento do lAPAS. Aviso 
Previo Empregador e Empregado 

Contabilidade: 

Processamento on-line (consulta 
de dados sempre otualiiados), 
pre-consislencia de enlrada de 
dados, utilizdcdo dos prbprios 
documentos da Empresa. sem 
necessidade de plariUhamento, 
consuHos diorias para analise e 
controle gei^ncial, codigos de 
acesso. consultas especilicas. 
ulilizagdo elicienle do tempo 
disponivel 

EaUnilrort man(em 
constonJ0m&nte ativa a 

pesquisa/s&hCi^o. noseniido de 
oteiecer umc hnha de Software 
cada v$z mais ampia 
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SUMARIO 



^^ SOFTWARE - "E agora, 

XO o que mais eu posso fazer 
com esta maquina?" Esta e a 
pergunta que muitos usuArios — 
depwis de passarcm pela euforia 
inicial de ter um micro em casa, 
pela emogao dos jogos e 
utiliza^ao de diveisos programas 
domesticos — estao fazendo a si 
prbprios. Para responder a esta 
pergunta, MICRO SISTEMAS 
promoveu esta edi^ao especial, 
com programas variados: 
utilitcirios, miisica, 
investimemos, jogos, desenho 
e aplicativos. E para voce, que 
ainda nao esti craque o 
suficiente para desenvolver 
com rapidez o software para sua 
aplicafao especifica, a dica 
e observar as listagens, 
procurando absorver as tecnicas, 
e adaptar os programas. 




-j A MICRO BUG: O COMANDO F 
1^ E qUTRAS TECNICAS DE 
UTILIZA^AO - Artigo que faz parte de um 
projeto que vem sendo desenvoivido pelo CPD de 
MS para os Sinclair. 

Q-^ cAlculo de antenas dipolo 

y^i ENCURTADAS - Rodada MS, trazendo 
o programa de Luiz Carlos Nardy, PY2AQ0, 
para os micros da linha Sinclair. 



Q^l- PLANILHA ORCAMENTARIA - 

^O Programa de Helv^io C. R. Netto e Jorge 
Luiz Grivot Maia para TRS-80. 

QO LOTUS - 1-2-3 - Artigo de Carlos Mdrio 
Ji'O Gomes de Almeida sobre o software mais 
famoso da linha IBM PC. 

1 1 n® DBASE II, POR ETAPAS - Artigo de 
X XvFilippo Galante sobre este gerenciador 
de arquivos para CP/M e MS-EKDS. 
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No mis de novembro, dd-se o 
Inf ormitica-M, grande Congres- 
so e Feira promovidos peta en- 
lidade nacioml de usudrios - 
SUCESU - e cuja ocorrencia. em geral. de- 
fine algumas tendencias que o setor apresen- 
tard no prdximo ano. 

Hd exalamente um ano arrds. em Sad Pau- 
lo, o mesmo evento conftrmava a for^a do 
m'ercado brasileiro da mkroinformdlica, mos- 
trando aos milhares de visitantescuriososum 
potencial de industria ati entao subestimado 
por n6%. A linha Apple foi a opgdo de muitos 
fabricantes. alguns de "fundo de quintal": os 
compatfveis com IBM-PC garantiam a inves- 
tida naciorml no ferreno dos 16 bits e a silua- 
(do do software ainda deixava bastante a dese- 
jar. 

De Id para cd. muila coisa mudou. Tanto 
o segmenlo de hardware quanto o de softwa- 
re, e mesmo as mudangas na filosofia de fiin- 
cionamento das lojas. de um modo geral. per- 
mitem-nos afirmar que o mercado amadure- 
ceu de forma surpreendente. 

Dentre as altera^oes ocorridasao longo do 
ano que passou. uma. para n6s, aparece de 
forma muito especial e ^ unanimemente apon- 
tada pelos empresdrios do setor como a mais 
significativa: o usudrio jd estd bem mais in- 
formado sabre o assunio e sabe o que pro- 
cura. 

O setor de hardware foi bastante movi- 
mentado A linha Apple sagrou-se Uder defi- 
nitivo no segmento de 8 bits, em termos de 
volume de vendas. Das cerca de vinte marcas 
expostas na Feira de 83. contudo. somente 
umas tres firmaram-se como detentoras de 
maiores parcelas de mercado. O resto ficou 
na periferia com fraca aceitafdo. 

Os equipamentos Apple, no entanto. aqui 
no Brasil. sdo usados predominanlemenle em 



aplicaf6es profissionais, e quase sempre com 
CPjM. o que jd caracteriza uma outra discus- 
sdo. O falo i que, na linha 8 bits, os equipa- 
mentos TRS modelo III, conlinuaram com 
otima aceitafdo para uso pessoal. em parte 
porque este mercado estd apoiado num grupo 
de usudrios de alto nivel (os funciondrios de 
grandes estatais que tiveram compra facili- 
tada). Este pessoal lem feito - literalmente - 
mis^rias. 

Os pequenos - nias poderosos - micros 
compativeis com Sinclair continuam um su- 
cesso, porseu baixo prego e boa performance, 
e agora tern a seu favor a garantia de contar 
com software de boa qualidade e desenvolvi- 
do de forma profissional. Neste particular, 
presenciamos o decli'nio do amadorismo, 
que antes era total. 

No segmenlo de 16 bits, tambem somen- 
te duas empresas tiveram participafdo mais 
significativa. Contudo. devido ao seu altopre- 
fo e tambim ao mercado - ainda insfpido - 
de software, esla linha ndo deslanchou como 
alguns previam. Este setor ainda estd sendo 
avaliado pelos interessados. e neste primeiro 
ano, OS maiores clientes foram as grandes 
corporagoes, sendo os equipamentos na maior 
parte das vezes. utilizados na emulagao de 
terminals IBM. 

Outra vedete da Feira de 8S. a rede local 
de microcomputadores ainda encontra-se. no 
Brasil, em fase de embriondria. Segundo os 
empresdrios do setor. particularmente os que 
atuam na revenda e assessoria especializada, 
isto deve-se ao fato de ainda ndo termos de- 
senvolvida a culturo relativa ao uso e altos 
custos que envolvem uma rede. Em outras 
palavras, falta as empresas uma clara defini- 
(do de suas filosofias de PD, alem da consia- 
tafdo de que os micros ainda tim um enorme 
potencial inexplorado no uso individual. 
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Na drea de software, o que se viu foi um 
decUnio de uma fase de depreciafdo, quando 
dava-se software em troca de pequenas com- 
pras ou favores. A antiga prdiica - principal- 
mente das lojas - de dar "brindes" aos com- 
pradores ndo mais se evidencia, pois, entre 
outras coisas. o "presenteado" percebeu, ds 
custas de muita frustragdo. que, neste sentido. 
o que e gratis geralmente ndo presto, ndo tern 
documentagdo , ndo tern suporle e. por ndo 
permitir acesso a versoes atualizadas. fica ra- 
pidamente obsoleto. 

Com um maior respeito. por parte dos que 
comercializam o produto. pelos au tores de 
software naciomis. veio lambim o apoio da 
industria de hardware. Alguns grandes fabri- 
cantes hoje oferecem a seus clientes software 
profissional. de autoria de terceiros. com o 
devido credito e remuneragdo de direitos. e 
mais. com seu "selo" de aprovagdo. Isto vem 
ajudar a acabar com a miopia de certos em- 
presdrios de hardware que leimavam em ofe- 
recer, com seus produtos. pacotes prdprios - 
pessimos, por sinal - de aplicativos bdsicos. 

Com isto, o software nacional desenvol- 
veu-se bastante, e as perspectivas sdo de um 
trabalho cada vez mais serio. Esta mdo-que- 
lava-aoutra que estd unindo os setores do 
hard e do soft, que tradicionalmente possuem 
interesses conflitanles. vai certamente trazer 
lucros para o mercado como um todo e, 
principalmente, para o usudrio que ve-se en- 
volvido num ambiente cada vez mats profis- 
sional. 
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Assirulurat: 

No pais 1 ano ■ CrS 30 000,00 

Os Brtigoi assinados ito de lesponsabitidade Onica e e»- 
elusiva dos auloies Todos os direitos de repioducSo do 
conteudodarevistaesiio'eservadoseQualiiuertepiOdu 
rto. cor" linalidade com&rcial ou ndo. s6 pode'B set laita 
madianie Buio"iai;6o previa TranscncOes paraais de 
trechet para comer^tanos ou leierencias podtm set lei 
tas. <fo^fe Que seiam me"Cionados os dados bibliograti- 
eos de MICRO SISIEMAS A ret/sia nSo aceiw material 
putliciltrio que possa ser contundido com materia rada- 
eional 
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RuaOlivenaDias 153- JaidimPaulista SAoPaulo/SP - 

CEP 01433 Tels lOIll 853-3800. B53-775B e 881- 

5666 

Av Pies'denie Wilson 165 grupo 1210 Cenlto-Riode 
Janeiro. RJ ■ CEP 20030 Tels (0211 262-5259 262 
6437 e 262 6306 
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COMPUMICRO 

Nos dominamos esta tecnologia. 



Microprocessador INTEL 
8088 (16 BITS) 




nexiJi 




PC 2001 



So quern domina esta tecnologia pode oferecer o que 

ha de meihor em 16 Bits 



CPU'S standard 256 K 
Drives 5 V4 DFDD (360 K) 
Winchester de 5 e 10 MB 
Monitores cromaticos/mono 
Co-processador 8087 
Expansoes de memoria 
Todos OS modelos de 
innpressora 



Ennulagao de terminals / RJE 

Comunicagao nnicro x 

mainfranne 

Sistemas multiusuario 

Conversores de protocolo 

Redes locals 

Software nacional 

e estrangeiro 




Alem disso, aCompumicro oferece com exclusividade 
o dispositivo 8088 processor card que permite operar 
software da linha PC em micros da linha Apple. 



INFORMATICA EMPRESARIAL LTDA. 

Rua Sete de Setembro, 99 - IIP andar 
Tels; PBX (021) 224-7307 - 224-7007 ■ RJ 
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O sortcado d«ft« mH que receberi ums 
assinoturadtum ano da MICRO SISTEMAS, 
6 Lufz Augusto FranzsM, de Sao Paulo. 



MICRO MERCADO 



Sou leitor de MICRO SISTEMAS e acho- 
a a revista mais completa sobre microcom- 
putadores do Brasil. Gostaria, entretanto, 
de sugerir que voces voitassem a publicar a 
Secao Equipamentos, e tamb6m que publi- 
cassem outro Micro-Mercado. pois ja foram 
lanqados v^nos micros desde a ultima edi- 
cln do Micro-Mercado (MS n? 16). 

Queria, ainda, que publicassem um curso 
de BASIC e de Assembler para a I rnha Sinclair. 
So mais uma coisa: publiquem mais jogos 
para Sinclair, e, se possivel, um jogo de xa- 
drez. 

Marcio Cosentino 
Rio de Janeiro-RJ 

Obwrvando a axpansao dos micros no 
pais, decidimos separar o nosso Micro-Mer- 
cado por linhas de equipamento, incluindo 
muito mais informacoes de interesse do 
usuario. Atem de nossa tabela tradicional de 
caractaristicas e prepos, dos equipamentos 
incluimos dados sobre perilericos, expan- 
so«s, software e a visao do usudrio em ex- 
tsnsas repoftagens sobre cada famflia de mi- 
crocomputador. Comprove lendo as mata- 
rias: "Ospaquenosnot^eis" — tudosobreos 
equipamentos da famtlia Sinclair (MS nP 29, 
pig. 32); "Gera^ao Radio Shack" - todasas 
tnforma^oes sobre os equipamentos da linha 
TRS-80 (MS nP 31, pag. 50); e "As mapas 
tropicais" — uma grandereportagem sobre os 
descendentes brasileiros do Apple IMS nP 
34, p^. 48). Leia e verifique que o nosso 
Micro-Mercado ficou muito mais compteto. 

Quanto ao curso de BASIC, MS jS publi- 
cou um completo: de MS nP 2 a MS nP 10. 
E o nosso Curso de Assembler (de MS nP 17 
a MS nP 35) baseou-se no microprocessador 
Z80. que 6 utilizado nos equipamentos da 
logica Sinclair. Suas sugestoes estao anota- 
das, e assim que algum leitor nos mandar um 
jogo de xadrez que seja aprovado por nosso 
CPD, nos o publicaremos, certo? 



EXTENDED NO JR 



Tenho um JR, da Sysdata, com 48 K de 
memdria e estou encontrando dificuidades 
ao tentar rodar atguns programas publicados 
em MICRO SISTEMAS. O primeiro proble- 
ma aconteceu quando tentei rodar um pro- 
grama para listar o conteudo da memoria: 
o programa roda normalmente at6 atingir 
1=32768, quando surge a notagao "OV 
Error". O mesmo acontece em nfvel de co- 
mando direto para PRINT PEEK (endereco) 
se o enderego e acima de 32767. Sei que a 
listagem so tera zeros e hexadecimais. mas 
por que o "OV Error" se 3276S 6 o endere- 
co final de 16 K e nao de 48 K? Vale dizer 
que o comando PRINTMEN indica 48338, 
nao havendo engano quanto a capacidade 
do micro. 



Outro problema surgiu ao rodar o pro- 
grama "A funcao USR(X) no D-8000" (MS 
n? 17, p^g. 20): o programa foi gravado e 
roda normalmente em outro JR de 16 K, 
mas no meu micro aparece a mensagem "FC 
Error" toda vez que rodo este programa ou 
qualquer outro que use USR(X). E mesmo 
as instrucoes do manual 3 respeito desta fun- 
gao nao apresentam resultado. Seria algum 
problema de enderegamento? 
Alfredo A. Maia 
Sao Paulo-SP 



Como • nosso habito, Alfredo, remete- 
mos was indagapoes para a SyxJata, que nos 
mandou a seguinte resposta: 

"Os chips utiiizados na versao 48 K do 
JR-Syxlata sao de 64 K, embora na versao 
cauete so seja potsfvel acesiar 48 K. O siste- 
ma de endare^os i por pares conjugados, de 
modo que, para tistar o conteudo acima de 
32767, usa o corraspondente negativo, ou 
seja, —32767 a assim sucessivamente, pois 
daita forma teremos: 32767%32767=€4 K-. 

Quanto ao problama da nao conieguir 
rodar um programa que roda em outro JR- 
SyvJata, utilizando a fun^ao USRIXI, itto 
ocorre provavelmente porque um JR tem o 
JR EXTENDED BASIC e o outro nao. Den- 
tro do EXTENDED BASIC pode-se usar 
atA 10 fun^oes da usu&rio, mas sem o 
EXTENDED BASIC so b possfvel usar uma 
fur>98o, a nesse caso a tintaxe deveria sar 
USR(O) % nio USRIN). O JR EXTENDED 
BASIC poda, ir>clusiva, ser desltgado para 
entrar interferencias, em outros programas, 
atrav^s do comando CMD"OfF" (navarsao 
2.0 em diantel ou CMD"8". "OFF" (nas 
vartoas anteriores)." 
Sergio D'Azzi 
Dapto. da Apoio ao Usu&rio da Sysdata 



ADENDOUTIL 



Complementando a excelente reporta- 
gem "Os pequenos notaveis" (MS nP 29. 
pag. 32), ^ interessante notar que a linha do 
popular e barato micro ingles foi um fracas- 
so no mercado dos E UA. a ponto da Sinclair 
chegar as portas do abismo financeiro em 
fins de 1982. Para teniar uma recuperaqao. 
a Sinclair despediu seu representante comer- 
cial na America do Norte, a Timex, passan- 
do entao a comercializar o produto direta- 
mente via reembolso postal (alias, como ou- 
trora). com um novo micro, o Sinc!air-GL 
(Quantum Leap). 

As especificagoes do QL sao as seguintes: 
chip basico da Moiorola (de 32 bits); tecla- 
do tipo profissional com 65 teclas; duas por- 
tas RS-232C; interface para joystick; um 
slot para cartucho ROM; resolugao 512X256: 
oito cores; 128 K de memoria RAM, expan- 
dt'vel para 640 K; incluindo dois drives para 
gravacao, tudo por US$ 499. 

Os drives do OL nao sao do tipo disco. 
mas de fita. Sao do novo tipo cassete, com 
capacidade para 100 K cada. com um tempo 
de acesso de 3,5 segundos. em m^dia. e com 
uma velocidade de transferencia de 1 5 
Kbytes por segundo. O DOS utilizado 
(QDOS) permite tarefas e quadros miilti- 
plos, incluindo programas para o processa- 
mento integrado de palavras Database, grafia 
e Spreadsheets (em BASIC). 

equipamento opcional inclui unna in- 
terface para impressora, um gerador de som 
de canal multiplo, modem, interface para 



disco rigido, emulador para terminal, compi- 
tador para Pascal e o Assembler 68000. 
Edmundo G. F. da Silva 
Rio de Janeiro-RJ 



AUXI'LIO EM HARD 



Meu interesse maior com relagao a mi- 
crocomputadores e a area de hardware e in- 
felizmente as informa<;6es disponi'veis nesta 
area sao raras, Por isso. recorro a voces: 
como instalar, no TK-SB. um conector de 
EPROM (com rotinas para aperfei^oar o 
BASIC), preferlvelmente com endereipo de 
acesso logo acima do ultimo endere^o da 
ROM original? 
Valerio F, Laube 
Schroeder-SC 

NAs nio tamos como ajudft-lo, Valtrio, 
mas, como voce mesmo nos oriantou (com 
a autoriza^ao para publicar seu endere^o), 
pedimos aos leitores que saibam como fazer 
esta conaxio para entrar em contato com 
MS ou com o pr6prio Valerio: Caixa Postal 
30. Schroeder, Santa Catarina, CEP 89260. 



CRfTICARETIRADA 



Foi com grande satisfa^lo que recebi o 
manual t^cnico do TK-2000. Tal sentimento 
aumentou ao receber da Microdigital uma 
resposta as solicitapoes e criticas enviadas a 
MICRO SISTEMAS. Portanto. atrav^s desta 
agradeco a deferencia e retiro o afirmado so- 
bre a propaganda enganosa. 

Com relagao ao manual tecnico, este in- 
forma tamb^m como acessar os 64 k da 
RAM: realmente represents um avanco no 
suporte aos usu^rios de microcomputadores 
no Brasil. Assim, plagiando a revista MICRO 
SISTEMAS (na reportagem "O direito e o 
avesso do TK-2000" - MS n? 34. pag. 74 - 
"Amor/Odio"), parabenizo a Microdigital. 
colocando-me como um atual apaixonado 
pelo meu micro (...). 
Dr. Roberto Cesar Costa 
Benio Gonpalves-RS 



TELESOFTWARE 
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Soube atrav^s da MICRO S)STEMAS de 
um novo sistema de transmissao de softvrare 
via telefone: TELESOFTWARE. Possuo, en- 
tretanto. algumas duvidas: 

1 - Como ser assinante do Videotex to? 

2 — E possivel a ligacao via modem/interface 
do Rio de Janeiro para a central de processa- 
mento em Sao Paulo (tipo interurbano)? Ca- 
so afirmativo. existe alguma limitacso no 
numero de ligacoes por usuano? 

3 — Aonde e por quanto posso adquirir o kit 
composto pela interface RS 232-C, modem 
e softvkfare de comunicacjao? 

Renato P. da Cunha 
Rio de Janeiro-RJ 

Como as parguntas fettas referam-te &s 
caracteristicas tecnicas do sarvi^o Tale- 
software, remetemos suas indagapoes para a 
Talesp, pois MICRO SISTEMAS participa 
do Telesoftwara como fornacadora de 



software. Eis as explica^oes da Taiesp: 

"Existam duas catagorias de assinantes 
do Videotaxto (VDT): O residancial a o int- 
titucional. Os usuirios de micros CP-300 a 
CP-500 (a am breve tamb^m os usuArios da 
linha Apple) podem sar assinantes do VDT, 
battando para isso possuir o kit VDT e estar 
csdaitrado na Taiesp. O cadastramento i so- 
licitado atravds do telefone (Oil) 884-2535. 
Ao se cadastrar. o assinante poda partencer 
A catsgoria residenctal (Cf$ 2.279,00 por 
mes) ou institucional (Cr$ 14.586,00 por 
mes), dapendendo do telefone a que astiver 
vinculado. 

Por anquanto, a Talesp so esta aceitando 
assinantes da capital de Sao Paulo, mas astd 
am astudos a libarapao, em brave, do atendi- 
mento a outras prapas, dantro da Area de 
atuapao da Talesp. Nao ha escritorio no Rio 
de Janeiro, e a ligapao a partir de outras lo- 
calidades esta sob a gerencia da empresa do 
grupo Talebras em cada Estado. 

Nao ha limita^ao por numero de liga^oas 
por usudrio, apenas ha a franquia, inclusa na 
assinatura. de 200 minutos por mes para o 
resklancial e 300 minutos por mes para o 
institucional. Os minutos adtcionais serao 
cobrados da seguinte forma: CrS 23,00 (no 
hor&rio de 8 as 20 horas) e Cr$ 14,00 [das 
20 horas ate as 8 horas) para o assinante re- 
sidancial; a Cr$ 36,00 (am qualquer hora- 
rio) para o institucional. 

O kit VDT pode ser er>contrado nas 
lojas: Mappin, Breno Rossi, Fotoptica e 
Filcres. O preqo do kit varia da acordo com 
a sua configurapao: cerca de Cr$ 500 mil 
para o kit completo, irKluindo interface RS 
232-C, modem, cabo, software e manual- 
em torno de CrS 230 mil sem a interface RS 
232-C; e aproximadamente Cr§ 30 mil s6 o 
software de adaptapao e o manual. 

Por fim, b interessante destacar que o 
Telesoftwara e a utiliza^ao da central VDT 
como banco de software, sendo um servigo 
exclusiuo para assinantes do VDT que pos- 
suem microcomputadores (...)" 
Cesar Ricardo Cava 
Gerente do Projeto Videotex to- Tel esp 



ANTES TARDE... 



ENDEREQOS DO CP-300 
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Sou usudrio de um CP-300, da Prol6gica, 
e gostaria de obter mais informa^Ses sobre 
endere^os de mem6ria, pois muitos nSo cont- 
tam no manual de opera^o e progrema^o 
do equipamento 
Paulo Marcos T. de Oliveira 
Riode Jarwiro - RJ 

Solicitamos ot erwJaragos de mani6rja 
que nio conttam no manual d Prol&gica a eii 
a ralacao destei endere^t: 
16396- Vetordadesvkida BREAK; 
16416 - Caracter do cursor; 
16872 - Buffer de antrada ( RS 232-C); 
16880 - Buffer de tafda (RS 232-C}: 

16888 - C6diao de tranim[uio/r«eap9io 
(RS 232-C); 

Parte mail (+) signfficativa - TX 

(tranunisAi); 

Parte menot (— ) lignrf icativa = RCV 

(recep98o); 

16889 - C6digo de parkJade/comprimento 
da psl8vra(RS 232-C); 

16890 -ChavedeeHMra do RS INIT; 

- nio « vera; 

*0 — e^wra. 
Paulo Sergio Carreiro 
Gerente da Marketing da Prol6giea 



Na MS n? 34, vi na Segio Dicas (pdg. 72, 
"Proteja copias em K-7") como evitar o 
RAND USR 837 nos equipamentos da linha 
Sinclair. Mas conhego, faz tempo, uma outra 
artimanha para isso: em vez de usar o SAVE 
ou o RAND USR 757, aconselho utilizar o 
RAND USR 761, que reconhece o RAND 
USR 837 como um LOAD normal, ou seja. 
ele carrega o programa sem introduzir o erro 
C/0. Vale a pena destacar ainda que esta di- 
ca so funciona em FAST. 

Espero que esta tenha ajudado, mesmo 
chegando airasado. Gostaria. por fim, de pa- 
rabeniza-los pelo alto ni'vel que a Segao Di- 
cas tem alcangado. Continuem assim. 
Luiz Augusto Franzese 
Santos-SP 

Agradacamot pela sua rnieiatrva, Luiz, 
mas nunca k tarda para colaborar conosco. 
Aproveitamos para repassar esta sua dica 
aos leitores, bem como repassar os seuselo- 
gios para todos os leitores que colaboram 
com a nossa Sapao Dicas. E tamb^m quera- 
mos Ihe fazer uma sugestio: por que voce 
riao se torna mais um colaborador de MS? 
E so mandar seus programas e artigos. bem 
explicados e com enderego completo, para a 
nossa Reda^ao. 



MS AGRADECE 



Antes de mais nada. muito obrigado 
mesmo pela publica^ao da carta "S.O.S. 
VIC-20". Tanto a revisia quanto os(as) lei- 
torBs(as) foram extremamente atenciosos 
comigo (coisa que a cada dia que passa esta 
diminuindo. mas isso 6 outra coisa). Infor- 
mo que ja resoivi o problema (adaptar o 
VIC-20 para o sistema PAL-M) aqui mesmo 
em Campinas e a chave transformadora fun- 
ciona a contenio. Nao houve necessidade de 
mexer no micro, 

Gostaria de informar, tamb^m, que agra- 
decerei, por carta, a todos que eviaram solu- 
coes /sugestoes para o problema. 
Gutemtjerg C, Penteado 
Campinas-SP 



A Microhouse 6, na capital federal, a 
mais recente empresa do ramo de microin- 
formaiica, e destina-se a prestacao de servi- 
gos contabeis e a ministrar cursos de progra- 
maqao. Nos intervalos das sessoes de instru- 
Cao, a revista MICRO SISTEMAS e manu- 
seada com muito interesse por todos, e es- 
ta Oirecao a julga indispensavel para quem 
ingressou no fantastico mundo dos micros, 
Assim. parabenizamos a equipe redacional 
de MICRO SISTEMAS pela variedade de 
assuntos e excepcional qualidade grafica. 
Carlos A, Attanazio 
Diretor Administrative da Microhouse 



Gostaria de agradecer sinceramente pela 
atencao dispensada ao meu problema com o 
TK, e informo que, como a resposta da Mi- 
crodigital indicou, ja tomei as providencias 
no sentido de encaminhar o meu equipa- 
mento para a assistencia teenies autorizada, 
no meu caso. no Rio de Janeiro. Espero re- 
ceber logo de volta o equipamento, quando 
me comunicarei com voces. Novamente, 
obrigado. 



Aproveito tamb^m para felicita-los pelo 
Projeto MICRO BUG. realmente uma tare- 
fa seria e de grande valia para os usuarios da 
linha Sinclair, os quais nunca receberam tan- 
ta atencao por pane de uma publicaqao na- 
cional. Maisum ponto para MSI 

Os artigos sobre Inteligencia Artificial 
tambem sao muito interessantes. principal- 
mente pelo fato de abrirem espapo para ou- 
tras linguagens. So nos resta esperar por uma 
maior popularizai;ao das mesmas. 
Marco Andre A. Vieira 
Juiz de Fora-MG 



Admiro muito esta publicacao, Faz tem- 
po que queria escrever esta carta, mas MI- 
CRO SISTEMAS me mantem o tempo todo 
no meu CP-200. Aprendi BASIC lendo li- 
vros, manuals e utilizando MS na pratica (ou 
melhor. no computador). Meu desejo agora 
e aprender a linguagem Assembler: leio tudo 
que voces publicam sobre esta linguagem 
com especial ater^ao. Gostei muito do Cur- 
so de Assembler e do MICRO BUG. MS e a 
melhor revista de conTputagao por essas (e 
pelas outras) bandas. E incri'vel, os progra- 
mas sao cada vez mais legais. Recomendo 
MS a todos OS meus amigos que tem micro, 
pois programador sem MS nas maos nao 6 
programador. 

Gosto muito das Se^oes: Cartas, Dicas e 
Livros. Acho tamtj^m muito honesto da par- 
te de voces colocarem a Secao Mensagem de 
Erro. Nao se acanhem nao, pois HERRAR E 
UMANO. Parab6ns ao Renato Degiovani pe- 
los adventures: digitei e gostei dos dois. Es- 
pero outros. Para voces, um FOR 1 = 1 TO 
1000000000: PRINT "MILHARES DE FE- 
LICITACOES PARA MS": NEXT 
Alexandre Negrao Paladini 
Sao Paulo-SP 



FABRtCANTES RESPONDEM 



(...) Gostaria de desvendar algumas du- 
vidas: 
1?) Com relacao ao PC-1500. da Sharp: 

- O que signifies LINE (X(A), Y(A))-(X(1). 
Yd)). S.B e tambem CSIZE 1? 

- PC-1500 possui cores? Ouanias? 
2P) Com referenda ao TK-2000: 

- Qual a posipao de memoria no TK-2000 
Color para Irgar e desligar o teclado, sem o 
acionamento da funqao GET? No Apple, 6 
-16384 para ler o teclado, e - 16368 para des- 
ligar o teclado. 

- A medida em que vao sendo digiiadas as 
linhas de um programa, elas vao sendo auto- 
maiicamenie transformadas para os codigos 
hexadecimais equivalentes: as linhas, espa^os 
epflavrasreservadas - tokens (palavras-c6di- 
gosK que diferem para cada microprocessa- 
dor utilizado. Supondo-se que um programa 
digitado consumiu 1,0 byte, se listamos, em 
linguagem de maquina, a 5rea 0800.00BFF. 
encontramos bytes 00 e ff passeando na lis- 
tagem. sem que haja qualquer relacionamen- 
to entre as palavras reservadas. Como se ex- 
plica isso? 

Vicente Jos6 Alves Bacelar 
Vitoria de Santo Antao-PE 



Ramatemoi ■ sua carta, Vicente, para a 
Sharp S/A e para a Microdigital. Publicamos 
agora as reipostas dos f abricantes do PC-1 500 
e do TK-2aO0, respect ivamente: 

"O comando LINE (X(A). Y(A))-(X(1). 
Y(1)), S.B trao* uma linha do par ordena- 
do (X^, Y^) ati (X^, Y^) com o respectivo 
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tipo de linha (5) e cor {B). A letra A indica, 
atrav«s do valor da memona A, o ponio ini- 
cial da linha; o numaro 7 Indica o ponto fi- 
nal. A letra S fornsce, tambem atraves do 
valor de memoria 5 (da a 9), o tipo de li- 
nha; e a letra B Indica a sua cor. atraves do 
valor do registro B. 

O comando CSIZE / especifica o tama- 
nho dos caracteres para tods a impressao 
subseqijente. Existem nowe tamanhos de im- 
pressao de caracteres disponiveis Ide 01 ate 
9). O formate pode ser como o citado actma 
ou atraves de um registro qualquer. E impor- 
tante ob&ervar que o valor nao podera ser 
menor que 1 ou superior a 9. 

A impressao do PC-1500 trabalha com 
quatro cores: azul, verde, preto e vermelho. 
A idenlificapao destas cores e feita atraves 
do comando COLOR. Para setecionar. por 
exempio, a cor preta, digita-se COLOR 
Para as outras cores, sao os seguintes codi- 
gos: azul~1; verde = 2; e vermelho=3." 
Francisco Telxeira Braga 
Coordenador de Treinamento da Sharp 



"No Appte temos —16384, que no TK- 
2000 corresponde a J5 E - 16368 no Apple 
nao tern correspondente no TK-2000. 

Devemos informar que lodo programa 
digitado no TK-2000 come^a "o endere?o 
2049 (em decimal), e o conteudo dos en- 
dereqos corresponde realmente aos codigos 
dos comandos, comprJmento das linhas digi- 
tadas e numeros de linhas digitadas. Os codi 
gos 00 e FF sao ancontrados quando nao ha 
nenhum programa no micro." 
Ricardo Tondowski 
Relapoes Publicas da Microdigital 



C/.OC/C C4/?D NO D-8 100 



Sou usuano de um Apple Dismac e ad- 
quiri, ha algum lempo airas. um clock card. 
Enquanto eu operava atraves do DOS e do 
BASIC esiava ludo bem, pois era possivel 
chama-lo atraves de um soft especi'fico que 
acompanha o cartao. Mas depois que come- 
cei a utili^ar o CP/M. nao consegui mais uti- 
lizar o clock card. Tenho visto em varias 
revistas que e possivel a ulilizagao de um 
dock atraves do CP/M. mas nenhuma explJ- 
ca como. 

O meu clock card possui 7 switches 
quando estou operando-o atraves do BASIC, 
ligo o switch 1 , coloco o cartao no s/of 5 e 
dou um BLOAD no programa, Depols e so 
dar um CALL 900 para coloca-lo em fun- 
cionamenio e um CALL 1000 para desativa- 
lo. Ele utiliza uma pilha que se recarrega du- 
rante o USD do computador. Agora, a per- 
gunta: como faqo para coioca-lo em atlvlda- 
de a partjr do CP/M, ou mais especidcamen- 
le. atraves do D Base? 
Rizien Maglio 
Sao Pau!o-SP 

Como sampre, marvJamos sua duvida pa- 
ra o fabricante do D-8100. Els a resposta do 
fabricante: 

"(...) Apesar de todas as buscas em dois 
fabricantes de cartoes adicionais para os 
equipamentos compativels com o Apple, 
nao conseguimos literatura suflciente sobre 
o clock card (cartao nao disponivel normal- 
mente no mercado nacional), nem sobre o 
soft especffico, o que esta nos dificultando 
para uma correta informacao. Pedlmos que 
o usuario nos envie a documenta^ao tecni- 
ca que dispoe, para que possamos avallar e 
fornecer a maneira certa de proceder. 

Salientamos tambem ser necessario nos 



informar sobre qual configurapao de memo- 
na esta o CP/M, e supondo-se que o CP/M 
esta rodando sobre um programa em BASIC, 
esta linguagem esta interpretada ou compi- 
lada? Pode estar ocorrendo, no caso do 
BASIC interpretado, uma sobreposigao no 
endere^o chamado pela rotina, ou no caso 
do BASIC compilado, uma falta de link- 
edl^ao com esse modulo. 

Tambem d importante frisar que pode es- 
tar havendo um condicionamento ao sistema 
operacional DOS, e ao microprocessador 
6502. pois pode ocorrer um desvio, ja pr6- 
defmido, para o niicleo do sistema opera- 
cional. o que inviabilizarla sua utiliza^ao em 
ouiros sistemas. como por exempio, o CP/M, 
que requer outro microprocessador. com 
endere^os totalmente diferentes. Ressalte-se 
que sao suposi^oes tecnicas, que so serlo 
confirmadas com o envio das mforma^oes 
solicitadas. 

Com relacao a pergunta formulada (colo- 
ca-lo em atividade atraves do DBase): a cha- 
mada de rotinas atraves de CALL, suposta- 
mente desenvolvidas em Assembler, e feita 
em DBase da seguinte forma: 
SET CALL rO andare^o 
CALL enderego 

logicamene, mediante previa carga dessa ro- 
tina no endere^ o especificado. 

Gostarlamos de destacar o nosso total in- 
teresse em. dentro dos recursos disponiveis 
quanto a documenta^ao existente. solucio- 
nar o problema apresentado, bem comodei- 
xamos a disposicao o nosso Departamento 
de Software para soJucionar eventuais neces- 
sldades." 

Roberto M. Valente 
Gerente de programa^ao da Dismac 



USUARIOS ATENDIDOS 



Em nossa Se^ao de Cartas de MS n9 34 
(edifao de julho/84), publicamos a carta de 
29 funciondrios de EsttrenD do Nordeite 
S/A - EDN -. com o tftulo "F6rum confifi- 
vel". em que estes refatsvam seus problemas 
com um lote de TK-2000 recentementa 
adquiridos na Microdigital. Publicamos tam- 
bem a resposta da Microdigital, em que esta 
assegurava a brave rasolugao dos problemas 
apresentados pelos usuirioi. Recabemot a 
carta dos 29 funcionfirios da EDN, em rtome 
do Sr. Gilson Gileno, na qual constatamos 
que OS problemas apresentados f Oram resolvi- 
dos. Agradecsmos mais uma vez aopessoal da 
EDN por nos prestigiarem e publicamos a 
seguir a carta: 

"A publicagic de nossa carta foi para 
n6s uma Imensa satisfaijao, pois veio ratifi- 
car e consolidar a imagem dessa revista co- 
mo defensora dos consumidores de micro- 
computadores. 

Realmente a Microdigital assumiu uma 
postura de garantir seu produto (...) e o sis- 
tema de envio dos equipamentos com defei- 
to via aviao com frete a pagar para a Micro- 
digital funcionou e continua funcionando, o 
que resolveu a maioria dos nossos problemas 



Gilson Gileno - EDN S/A 
Camacari - BA 



SUGEST6ES 



Comprei um microcomputador Ringo e 
agora perienqo ao fantastico mundo de MI- 
CRO SISTEMAS. Gostaria de utilizar este 



privllegio para pedir a publicacao de pro- 
gramas para o meu Ringo. como: programa 
para gravar programas em velocidade nor- 
ma) (300 Bauds), que permite total ccmpa- 
tibilidade e troca de programas entre outros 
equipamentos da linha Sinclair. 
Walter Nabuco Rocha 
Belo Horizonte-MG 

Facam reportagens abordando: a utiliza- 
Cao de um mini; como funciona um CPD, 
quem irabalha nele etc. O primeiro mini a 
ser abordado poderia ser o Cobra- 500, afinal 
e o primeiro computador genuinamente bra- 
silelro. 

Mauricio C. Reis 
Rio de Janelro-RJ 



Tenho algumas sugestoes a fazer: 

1 - Valorlzem mais os jogos. de preferencia, 
OS de dveniuras para o TK-85. 

2 - Contlnuem publicando mais jogos para 
o TK, pois vejo que MICRO SISTEMAS da 
muito valor aos usuarios de micros da famf- 
lla Sinclair. 

3 - Publlquem junto ao currfculo do cola- 
borador o endere^o/telefone deste. 

4 - Separem, em cada edipao, os programas 
para equipamentos diferentes (linha Sinclair. 
TRS-80, Apple, calculadoras etc.). usando. 
de preferencia uma p^glna inteira com moti- 
uos eletronicos, como. por exempio. para a 
ilnha Sinclair, escrevam no melo da pagina 
e nos cantos desenhos de programas que fi- 
zeram sucesso nesta linha de micros. 

Se estas sugestoes nao forem atentldas, 
nao deixarei, porem. de comprar todo mes 
esta excelente revista. 
Marcio Alexandre 
Rio de Janelro-RJ 



Venho por meio desta parabenlza-los pe- 
lo excelente nfvet de MICRO SISTEMAS. a 
qual considero a melhor revista sobre micro- 
computadores e computaqao no piano na- 
cional. Mas nem por isso deixarei de propor 
que se crie, na medida do possi'vel. novas se- 
coes dentro desta extraordlnaria revista. tais 
como: 

- artlgos sobre expansoes para os compma- 
dores da Ilnha Sinclair, como alta resolucao. 
cor, gravador de EPROM, slnteiizador de 
sons etc: 

- concurso de software; 

- aniologias sobre os microprocessadores 
Z-80. 8088. 6502 etc. 

Andre Luiz Guimaraes 
Porto Alegre-RS 

Tenho acompanhado a MICRO SISTE- 
MAS e quero dizer que ela atende aos meus 
anseios completamente. trabalho com pro- 
gramacao e me inieressa tudo de atual (tan- 
to em software como em hardware), e tudo 
Isso busco nas pagmas de MS. 

Gostaria, entreianio, de sugerii a publl- 
cacao de macetes em programaqao Cobol 
(na area comercial), e tambem mais progra- 
mas em Forth. 

Sinto. a cada dia, a necessidade de me 
manter atualizado, por isso, continuarei con- 
tando com voces. 

Joao Aloisio Zambrano Gargantini 
Presidente Prudente-SP 



Envie suas sugestoes para MICRO 
SISTEMAS. Elas serao anotadas em nossa 
pauta e procuraremos, na medida do 
possivel, viabiliz^-las. 




instalamos sistemas, e 
a nossa assistencia 
tecnica e a mais tecnica. 

Opcionais: 
Expansao ate 192 k. 
Cartao opgao grafica. 
Cartao de comunica^o 
ICA. 

Cartao CP/M. 
Interface serial 232 C. 
Interface paraleia. 



A CLAPPY JATEM O MICKO ENGENHO 2. 
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Adivinhou! 

novo Micro Enge- 
nho 2 e cem por cento 
compativel com o Apple 
II Plus eo Apple lie. 

Ele tem b4k bytes de 
memdria RAM^e uma 
interface controladora 
de discos ja incorporada 
naplacaprincipar. 

Tem teclado com ca- 
racteres em portufflies, 
com cediiha e acentos. 
E teclado numerico 
reduzido. 

E junto com o Micro 
Engenho 2 voce recebe 
dois programas: proces- 
samento de texto e plani- 
Iha f inanceira. 

EmaisiACIappytem 
sempre o melhor pre^ e 
consultores tecnicos que 
analisam o seu oroblema. 

Por isso^a Clappy 
vendesolu^s^nao 
apenas computadores. 



Alemdisso, a Clappy 
tem perifericoSy softwa- 
res, suprimentos, cursos 
de programa^o e opera- 

^0. 

Implantamos e 



lado gente da maquina 

Venha a nossa loja ou solicite a visita 
de um representante. 
Centro: Rua Sete de Setembro. 88 
Lqia Qigaleria) Tels.: (021) 2i2-5517 
222-5721 - Av. Rio Branco. l2 loja 
e sobreloia -Tel.: (021) 253-3395 
Sao Cristovao: Rua Antunes Maciel, 
25 - 2? andar -Tels.: (021) 264-2096 
234^214. 

Copacabana: Rua Pompeu Loureiro,99 
Tefe:: (021) 257-4398- 236-7175 
Aberta diarlamente das 9 as 19 horas 
e aos s^bados das 9 as 14 horas. 
Assistencia tecnica: 284-3349 
Entregamos em todo Brasil pelo 
reembotso Varig. 




ADIVINHE COM QUEM ELE E COMPATfVEL? 




Enxadhstm experientv. Luciano Nilo de An- 
dnde jA escnv«u para oi jornais "Cormio da 
Manhi". "Data News" e "Ultima Hora" e pa- 
ra arevitta "Fatos & Fotos". Luciano i econo- 
mitta, trabalhando no Ministirio da Fatenda, 
no Rio de Janeiro. As opinides e comentirios 
de Luciano Nilo de Andrade. bem como as 
ultimas novidades do Xadrez jogado poi com- 
putadores. estarSo sempre presentes em 
MICRO S/STEMAS. 



De tempo ao Elite 
e ele ganhara 



NN, misterioso personagem de 
ficpao que tern enriquecedido a 
literatura enxadrfstica interna- 
cional e nacional, mais uma vez d^ sua 
preciosa colaborapao a esta se^ao. 

Empolgado com sua vitdria sobre o 
Elite World Champion, jogando no nfvel 



A5 (com tempo m6dio de dois minutes 
per jogada), NN pensou poder repetir 
sua fa^anha contra o mesmo jogando no 
nfvel B3 (tempo m^io de tres minutos 
per jogada}. Ficou s6 no desejo... 

Na primeira partida, NN teve sucesso 
com o sacriffcio especulativo de um ca- 









Tempo do 


AvaliKio 


ProfundidKia 


N9 da variantas 




Brancsi 


Pr«tas 


EIH* 


dapotjfio 


da aniliM 


analitadas 








min. wg. 








1 


P4R 


P4R 


— — 


— 


— 


— 


2 


C3BR 


C3B0 


— - 


— 


— 


— 


3 


B5C 


P3TD 


- — 


— 


— 


— 


4 


BxC 


PDxC 


— — 


— 


— 


— 


5 


0-0 


P3B 


— — 


— 


— 


— 


6 


P4D 


B5C 


— — 


— 


— 


— 


7 


P3TR 


BxC 


4 43 


0068 


6 


11 


8 


Dx8 


PxP 


7 38 


0065 


6 


30 


9 


P5R 


D4DI 


6 30 


0108 


6 


30 


10 


D5T+ 


P3CR 


3 19 


0196 


5 


6 


n 


D4T 


DxPR 


2 34 


0202 


5 


43 


12 


B4B 


D5R(7) 


2 55 


0178 


5 


42 


13 


C2D 


DxPB 


3 16 


0291 


5 


40 


14 


8xP(7) 


DxC 


2 29 


0483 


5 


38 


15 


TD-ID 


DxPC 


1 38 


0510 


5 


40 


16 


TxP 


DxPT 


7 08 


0578 


5 


38 


17 


TR-1R+ 


B2R 


1 57 


0601 


4 


5 


18 


T4-4R 


D7Dt 


1 35 


0589 


4 


31 


19 


T4-2R 


D2D 


1 50 


0581 


6 


36 


20 


B6C{?) 


R2B 


3 24 


0587 


5 


26 


21 


D4BD 


R2C 


1 40 


0614 


4 


5 


22 


D3B 


T1BR 


7 12 


0600 


5 


22 


23 


T2-2D 


D4B 


3 01 


0612 


5 


32 


24 


P4CR 


D4C0 


3 21 


0650 


5 


37 


25 


B7B 


B5C 


1 10 


0685 


4 


37 


26 


T7D 


T28 


2 44 


0664 


5 


4 


27 


TxT 


RxT 


29 


0673 


5 


2 


28 


D3C+ 


R2C 


3 27 
1h13m 30i 


0707 


6 


4 



Figura 1 — Quadro demonstretivo do desenrolar da segunda partida. 



vale e tres peoes. Entretanto, este sacri- 
f fcio nao apresentou o mesmo resultado 
na segunda partida. NN entregou o cava- 
lo desnecessariamente, j^ que, com 14 — 
C36R, as brancas ficariam com posipSo 
multo superior. O intento (malogrado) 
de NN era dar ol^ no micro e conseguir 
uma vit6ria incomum. 

Na figura 1 temos o quadro demons- 
tretivo do desenrolar da segunda partida, 
onde podemos observer a performance 
favor^vel do Elite atrav6s dos indicado- 
res de tempo, avaliagao da posi?ao, pro- 
fundidade da an^lise (em meias-jogadas) 
e numero de variantes analisadas. 

E a seguir voc§ pode acompanhar as 
jogadas da primeira partida (apenas da 
posipao 20 em diante, jd que at6 af as 
duas foram iguais) e tirar as sues prd- 
prias conclusoes. 

NN X Elite Wortd Champion 
Nfvel A5 (dois minutos para cada jogada) 

Igual at^ a jogada 20 - B6C(?) (me- 
Ihor teria sido BST). 20 - ... D3D(?); 21 
- T6R D6T; 22 - D4BD+ RIB; 23 - 
TxB CxT; 24 - B5B P4CD; 25 - D2B 
D5T; 26 - BxC+ R2B; 27 - DxPB+ 
R1C; 28 - B6D D2BR;29 - B6D D2BR: 
30 - D4D D4B; 31 - T7R D2B; 32 - 
TxD. Depois de tantas perdas materials 
sem qualquer compensapao posicional, 
continuar a partida seria perda de tempo. 

Veja nos diagramas A, 6 e C os mo- 
mentos mais emocionantes desta disputa 
entre o desconhecido NN e o Elite. 



I 
H 


■ 


■*■«■ 


il 


■ HA 


A 
■ 


■A 


nrnf« 


1 
■ 


y 


A^ 


^f 





Diagrams A - 
Posi^o depois 
de 14 - C2D 
DxPB. As bran- 
cas inhiam o 
ataque dirato ao 
monarca negro 
com o sacriffcio 
especulativo do 
cavalo. 




D^ 



Diagrama B — 
PosifSo depois 
de 20 - B6C. 
Nesta posi^ao as 
respostas das ne- 
gras divergiu da 
primeira partida. 




Diagrama C — 
PosipSo depois 
de 2B - D3C 
R2C (segunda 
partida). NN, 
que nao tarn 
tendencias maso- 
Quistas, vendo 
seu ataque repa- 
lido abandonou a 
partida. 



Como construir 
um satelite artifiGial 
sem sair da cadeira. 
VUanoShowde 
Informitica 84 da 
IBM Brasil. 
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A IBM nao para 
de desenvolver novas 
tecnologias. em seus 
centres cientificos e 
laboratories de pesquisas 
enn todo o mundo. Estas 
conquistas serao 
demonstradas em show de 
multivisao. com utilizagao 
de laser em seu stand na 
Feira de Informatica. 

Nele estarao. ao vivo, os mais 
novos produtos IBM. alguns dos 
quais pela primeira vez exibidos no 
pais. Veja tudo o que a IBM oferece 
a voce, seja qua! for o seu campo de 
atividade profissional. 

Entre as estrelas deste show de 
tecnologia. voce vai ver o terminal IBM 
5080. um avangado sistema grafico. capaz 
de projetar. nos minimos detalhes. desde o mais simples 
solido ate o mais complexo satelite espacial. 

E as impressoras a laser, eletro-erosao e multi-velocidade. 

E mais o sistema robotico IBM 7535. em aqao, mostrando 
como se faz automagao industrial. 

Todas estas conquistas voce vai ver em pleno funcionamento. 
clemonstrando o que a IBM pode fazer peio pais e por uma vida melhor 

I V FElRA INTERNACIONAL DE INFORMATICA - DE S A 1 1 DE NOVEMBRO 
f llOCENTRO. RJ 



IBM Brasil 

Show de tecnologia 
para uma vida melhor. 




O Comando 

F e outras 

tecnicas 

de 

utiliza^o 



blema a ser resolvido 6 essencial para a 
perfeita S0IU9S0 do mesmo. 

Vejamos entao alguns desses proble- 
mas e como equacion^-los usando MI- 
CRO BUG. Antes, porem, sera preciso 
certificar-se de que o SGM est^ operan- 
do na base Hexadecimal, para isto entre 
com o comando A $=D para indicar que 
todos OS valores devem ser considerados 
na base hexadecimal e os valores antece- 
didos por $ serao interpretados como 
valores decimals. 



PROBLEMA 1: Como criar linhas REM 
para armazenamento de rotinas em lin- 
guagem de maquina. 



comando que cria linhas REM, no 
SGM. 6 COMANDO E, cuja sintaxe e 
E xxxx,yyyy,z; ou seja, criar a linha nu- 
mero xxxx, com yyyy caracteres z. 

Qualquer mimero de linha, de 1 a 
9999 e aceito nomialmente e se ji existir 
uma linha com tai numera^ao sistema 
acusara o problema, interrompendo a 
39^0 do comando. Tambem 6 possi'vel 
criar linhas com qualquer quantidade de 
caracteres e com qualquer cariter do mi- 
cro. 

Um aspecto importante a ser mencio- 
nado e que o pr6prio equipamento tem 



















Listagem 1 




nOMANDO F 


gr ava 


bloco com carar 


pr ) 


794A 


3C 7E" 




def 7E3C 


; COMANDO F. 


7E3C 


c;d F7 


7B 


CALL 7BF7 


;F>arametrDS InicJais- 


7E3F 


^A 31 


79 


LD HL, (7931) 


; 1 n i c i o do bloco. 


7Et? 


3A 35 


79 


LD A, (7935) 


jcaracter a ser grawado- 


7E45 


77 




LD <HL>,A 


;gr ava caracter . 


7^46 


CD 4H 


7E 


CALL 7E4B 


;pro!<imo endereco ate' fini. 


7E49 


18 FA 




JR 7E45 





limitaijSes quanto a estrutura^ao de li- 
nhas, dessa forma, nao espere que o MI- 
CRO BUG funcione perfeitamenteonde 
nem mesmo o Sistema OperacionaJ tern 
um procedimento correto. Criar linhas 
com numerafSo fora da faixa permitida 
pelo micro ou com uma grande quanti- 
dade de caracteres pode acabar causan- 
do problemas funcionais insoluveis. Um 
deles e que uma linha REM muito gran- 
de. quando e deletada, faz o micro mir 
do ar. 

Quanto ao tamanho das linhas REM, 
se o usuario esta criando-as para a digi- 
taijao de um programa publicado em 



uma revista, entao nao havera problema 
para as quantidades niencionadas nos 
textos. Porem. se o usuario estiver crian- 
do linhas REM para o desenvolvimento 
de um programa seu, entao sera preferi- 
vel criar diversas linhas pequenas ao in- 
ves de uma linha gigante (procure nao 
ultrapassar, como procedimento normal, 
a quantidade de 500 caracteres por li- 
nha). 

Outro ponto importante e certificar- 
se da base em que o SGM esta operando, 
pois pode-se facilmente introduzir um 
erro de dificil percep^ao. Veja como. na 
base hexadecimal, os comandos abaixo ^ 



A perfeita compreensao de um 
sistema ou programa e requi- 
sito fundamental para um de- 
sempenho eficiente do mes- 
mo. A sub-utiliza9ao, caracteristica mar- 
cante por esses lados do equador, tem 
como principal conseqiiencia o prejui- 
zo, tanto fmanceiro quanto funcional. 
Esse tipo de problema e freqiienie- 
mente gerado pela baixa qualidade dos 
manuals tecnicos (em alguns casos eles 
nem mesmo existem) dos produtos bra- 
sileiros. Os fatores que contribuem para 
isso sao OS mais diversos. como o alto 
custo grafico, a ainda pequena demanda 
e principaimente a pirataria. 

Mas o problema nao pode ser visto 
apenas por esse lado. De fato, por mais 
complete que seja um sistema ele nao 
tera utilidade-ou desempenhara suas 
fun95es inadequadamente - se o seu 
usuirio nao estiver preparado e consct- 
ente para tal tarefa. Um programa pode 
nSo funcionar se quem o estiver utilizan- 
do nao conhecer nada a respeito dos 
propositos e fins do mesmo. 

Nesse mes, veremos o ultimo coman- 
do funcional do SGM e aproveitaremos 
para rever alguns pontes dos comandos 
anteriores que estao gerando alguma 
dificuldade de utiliza9ao por parte dos 



leitores. A fomia que adotaremos para 
tal sera do tipo problema/solufao, lem- 
brando sempre que o MICRO BUG so 
sera cem por cento eficiente, se o usua- 
rio souber exatamente o que quer e co- 
mo obter OS resultados desejados. 

O COMANDO F 

O comando F e um dos comandos 
mais simples do SGM e serve para pre- 
encher um determinado bloco de memo- 
ria com um valor especiTico. A sua es- 
trutura vale-se de rotinas operacionais ji 
implementadas por outros comandos, de 
forma que o mesmo ocupa uma quanti- 
dade minima de memoria. 

A sintaxe do comando F e: 
> F xxxx, yyyy, z 
ou seja, gravar no bloco que inicia no 
endere90 xxxx, ate o enderego yyyy, o 
carater z. 

A utilizagao desse comando esta di- 
retamente vinculada a um profundo 
conhecimento da estnitura operacional 
da maquina, pois e preciso muito cuida- 
do para nao sobrepor areas vitais do Sis- 
tema Operacional, como a area das va- 
riaveis, o arquivo de imagens, as pilhas 
do processador, etc. Mais uma vez vale 
ressaltar que o SGM nSo questiona O 



QUE o operador estd fazendo e nem 
ONDE, sendo que o mesmo deve ter o 
maximo de cuidado com as operagOes 
via SGM. 

A digitagao do comando F segue as 
mesmas especificagoes dos comandos 
anteriores, nSo sendo necessirio ne- 
nhum cuidado especial. N3o esquecer, 
porem, de alterar a Tabela de Definigao 
dos Comandos. 

USANDO O MICRO BUG 

A pratica do MICRO BUG pode re- 
solver uma grande quantidade de pro- 
blemas encontrados na utiliza9ao fre- 
qiiente do equipamento. £ preciso, po- 
rem, ter sempre em menie o fato de que 
o MICRO BUG reside numa area RAM 
e portanto passive! de sofrer atteragoes. 

Essas alteragoes podem ser intencio- 
nais ou acidentais e as devidas corre96es 
podem causar muito mais prejuizo do 
que o desejivel, portanto TODO CUI- 
DADO £ POUCO. Outro problema fre ■ 
qiiente e a'perda de controle do sistema, 
causada por um erro de opera9ao, o quts 
obrigard o usudrio a desligar o equipa- 
mento e recarregar o MICRO BUG . 

De uma forma ou de outra, o conhe- 
cimento e compreensao ^oba! do pro- 



fTrPEQPLE 

■■ Computacao 
PARA MICROCOMPUTADORES 



■ ^^Sfes s^^biSS^ '^^k 



BASIC] - BASICO 
BASIC II- AVANQADO 

— M6todo Prdprio de Ensino 

— Professores Especializados 

— Apostilas Completas de Textos e Exercfcios 

— 1 Micro para cada 2 alunos 

— N9 limitado de vagas / turma 



Sao Paulo - Av. Rouxinol, 201 - Pons 61-4595 

Campinas - Rua Cesar Bierrenbach, 171 - Fone 8-3608 

Jundiaf - Rua Sao Francisco Salles, 16 - Fone 437-7988 

Rio de Janeiro - Av, N.S. Copacabana, 1417 -loJa313- Fone 521-1549 
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O COMANDO F . , . 



funcionam de modo diverse causando 
uma diferenija apreciavel de resultados; 

>E:: iO,32,*t 



PROBLEMA 2: Como operar a digita95o 
de programas publicados nas levistas, 
usando o MICRO BUG. 



Antes de mais nada 6 precise avaliar 
o tamanho do programa a ser digitado, 
pois MICRO BUG estard ocupando 
4.5 K bytes de memdria. 

Em programas grandes, que visivel- 
mente ocupam mais de 10 Kbytes de 
memoria, ser^ preclso reduzir o MICRO 
BUG, ou seja, cancelar a area de 2.5 K 
reservada para os Modules Operacionais. 
Essa ^rea pode ser desativada, logo ap6s 
a introdu9ao do SGM, executando o se- 
guinte comando: 
POKE 16389, 120eNEW. 

Os programas menores, que s3o a 
grande maioria, nSo necessitam desse 
recurso e e preferfvel manter a area dos 
Modules Operacionais intacta, pois, em 
alguns cases, ela podera ser usada como 
buffer especial para alguma retina em 
linguagem de maquina. 

A cria93o das linhas REM deve obe- 
decer rigorosamente ks especifica^Ses do 
programa a ser digitado, sob pena de ha- 
ver probiemas funcionais quande e mes- 
me for testado. cardter escolhido nSo 
6 fundamental, por^m 6 aconselhivel 
que o usuario escolha sempre um linico 
carater, para se acestumar ao seu valer 
durante a introdu^ao dos c6digos de mA- 
quina. Isso facilita bastante a detec^So 
de enes. 

A digita93o em si seti feita atrav^s de 
COMANDO M. dande entrada ne ende- 
re9o inicial em que seri gravade e bleco 
Assembler, per exemple: >M 4082 indi- 
ca a digita9ao de um bloce que inicia no 
endere90 $16514 (em dedrnal). A cada 
dado, o proximo endere90 e apresenta- 
do com seu devide conteudo. Em case 
de erro, basta retroceder es endere90s, 
usande a tecia (J) e digitar o valor cor- 
reto. Para interremper a entrada de da- 
dos basta pressionar BREAK eu, se e 
usuario preferir, ressetar o comando 
com SHIFT 1. 

£ precise aten93o para estabelecer a 
V!sualiza93e dos valores num^ricos na 
ferma em que estae publicados. Veja es- 
sas especiflca95es na edi9Se 32 de MS, 



JJstagem 2 



rot i na exemp 1 o 



4082 


CD 


BB 


02 


CALL 02BB 


4085 


7C 






LD A,H 


4086 


FF 


FE 




CP FE 


4088 


3D 


FB 




JR NC,4082 


408A 


44 






LD B,H 


408B 


4D 






L C,L 


408C 


CD 


BD 


07 


CALL 07BD 


40BF 


7E 






LD A,<HL) 


4090 


FE 


76 




CP 76 


4092 


28 


EE 




JR Z,4082 


4094 


FE 


00 




CP 00 


4096 


C8 






RET 


4097 


CB 


77 




BIT 6, A 


4099 


20 


E7 




JR NZ,4D82 


409B 


F5 






PUSH AF 


409C 


CD 


2A 


OA 


CALL 0A2A 


4Q9F 


Fl 






POP AF 


40A0 


06 


FO 




LD B,FO 


40A2 


D7 






RST iO 


40A3 


iO 


FD 




DJN2 40A2 


40A5 


18 


DB 




JR 4082 



;le teclado. 

;espGra tecla pressionada. 

- Ident i f i ca tecla. 

;reinicia se for ENTER. 

-retorna se for BREAK. 

•recomeca se tecla nao for 
;per m it > da . 

jCLS. 

;imprime 240 caracteres. 

-reinicia processo. 



onde e comando M i apresentade. Para 
fazer uma verifica93e de que fei digita- 
do, utilize e comando D ou, se fer o 
case, o comando P. 



PROBLEMA 3: Como menitorar um 
teste de uma retina em linguagem de 
maquina. 



Essa talvez seja uma das maiores faci- 
lidades que e MICRO BUG oferece em 
materia de depura9ao de programas, 
pois com ele € possi'vel rastrear es regis- 
tradores e seus respectivos conteudos. 
Para ficar claro e que serd expesto a se- 
guir, vamos pressupor a existencia de 
uma retina para imprimir na tela da tv 
um carater qualquer. O sistema deveri 
retomar, case a tecla BREAK seja pres- 
sionada. Tal retina esti apresentada na 
listagem 2. 

Em primeiro lugar, crie uma Unha 
REM com 50 caracteres e digjte a reti- 
na. Em seguida, volte ao BASIC e tes- 
te-a com RAND USR 16514. Experi- 
mente diversas teclas e depeis reterne 
ao SGM. 

Estando ne SGM, a forma de testar 
uma retina e usar o comando G. Para 
isso, digjte G 4082 e veja que o seu fun- 
cionamento ainda 6 o mesme. Podemos 
visualizar o que ocerre intemamente na 
retina atraves do comando H (basta 
pressionar a tecla H), que mestra e valor 
de cada registrador. Zere-os com o co- 
mando NN,0 e chame novamente a re- 
tina exemple. Ap6s reternar ao SGM 
opere novamente e comando H e com- 
pare es valores fmais, dos registradores. 



com es seus respectivos valores iniciais 
(no nosso case eles eram 0). 

Podemos verificar o conteudo dos re- 
gistradores apos a leitura do teclado, in- 
treduzinde um BREAKPOINT ne ende- 
re90 4084. Para isso, digite o comando; 
K 4084 e em seguida chame a rotina 
com G 4082. 

A execu9So da retina e interrompida 
pelo BREAKPOINT e o sistema devolve 
centrole ao SGM. Liste os registrado- 
res com H e compare es resultados. 

£ possi'vel colocar o BREAKPOINT 
em outros pontes da rotina e podemos, 
at^ mesmo, simular uma determinada si- 
tua9ae; per exemple, para que a reti- 
na funcione como se a tecla A tivesse 
side pressionada, basta celecar um 
BREAKPOINT no endere9e 40A5, gra- 
var o acumulador com o valor 26 ( NA, 
2600 ) e chamar a rotina a partir do en- 
dere9e 4090. 

Diversas eutras situa9ees podem ser 
reproduzidas, desde que se tenha e cui- 
dado de nSe celecar e BREAKPOINT 
num endere90 impr6prio (per exemple 
408D), eu chamar a rotina em um ende- 
refo tamb^m imprdprio (per exemplo 
4083). 



PROBLEMA 4: Come criar um arquive 
de retinas em linguagem de miquina, 
usande fitas cassete. 



Uma interessante prdtica, para quem 
desenvelve programas em gerai, 6 man- 
ter um arquive de retinas em Assembler 
para as mais diversas utiliza9oes. Pode- 
mos ter retinas padrCes, para leitura e 
interpreta95es de teclado, contrele dire- 



cional de mevimentos em joges, siste- 
mas utilitarios, etc. A vantagem de man- 
te-las em arquives de fitas i a elimina9So 
da necessidade de constante digita93:o. 

Suponhames uma determinada retina 
que produz um SORT em programas 
BASIC. Podemos digita-la uma vez e en- 
tae dar o comando I xxxx,yyyy, onde 
xxxx e e primeiro endere9o da retina e 
yyyy o ultimo. A experiencla recemen- 
da que a grava9ao seja feita uns bytes 
antes de inicie da rotina e, seu termine, 
uns bytes ap6s o final, per questOes de 
seguran9a. 

Quande houver necessidade de utili- 
zar tal retina, basta criar uma linha 
REM para recebe-la e em seguida carre- 
ga-la, do cassete, atraves de comando 
J xxxx.yyyy. Esse comando n2o grava a 
retina nes endere9os originals, mas sim 
no bleco xxxx.yyyy, definide pele 
usuario, o que permite e deslecamento 
da pesi9So dela na memoria. 

E conveniente, nesses cases, manter 
as retinas dentro de linhas REM comple- 
tas, eu seja, uma linha REM para cada 
retina. Esse processo pode ser usade 
tamb^m para arquivar telas em cassete. 



PROBLEMA 5: Como fazer uma c6pia 
de um programa protegido. 



Geralmente es programas comerciais 
possuem prote93o contra cdpias, visan- 
do dificultar apirataria. Uma censeqiien- 
cia natural disso 6 que o usuario co- 
mum, que tiver a sua fita danificada per 
um acidente, seii obrigado a comprar 
uma nova fita. 

Um dos meies de se evitar esse tipo 
de aborrecimento, e censeqiiente prejui- 
zo, e fazer uma c6pia de programa para 
ser usada em lugar da fita original. Isso e 
facil de ser ebtide com o MICRO BUG, 
apesar do programa nao ser interrompi- 
do e conseqiientemente nSo permitir o 
SAVE normal do micro. 

Afim de evitar probiemas operacio- 
nais, carrega-se e programa a ser copiade 
fora da drea normal do sistema, eu seja, 
numa irea entre es endere90s 4400 e 
7700 que correspende a memoria de re- 
serve do BASIC. Utilizamos a tecnica de 
medifica95es de RAMTOP para obter 
urTia area maior (comprimir o SGM) e, 
para isso, deve ser dado, em BASIC, o 
comando POKE 16389, 120 e NEW. 

Antes de iniciar e LOAD e necessirie 
preencher essa irea com um valor ce- 
nhecido. Use para isso o comando F, da 
seguinte forma; F 4400,7700,'. Em se- 
guida, e comando J com: J 4410,7700. 
Tal comando iri iniciar e carregamente 
de programa, na area estabelecida, e 
quande a imagem de video se estabili- 



zar, ou seja, perder a caracteristica de 
LOAD, pressiona-se a tecla BREAK. 
Nesse memento, e programa tode esta 
na mem6ria do micro e pode ser exami- 
nado com o auxilio do comando D. 

Para fazer a grava9So serd precise ce- 
nhecer e endere9e do ultimo byte do 
programa, ou seja, on'de estiver gravade 
uma s^rie de asteriscos. O primeiro en- 
dere90 dos asteriscos e o endere9o final 
do programa e deve ser usado no coman- 
do I 4410,yyyy. Quande essa cdpia for 
carregada no micro, via LOAD "", e 
cemportamento de programa sera exata- 
mente igual ao do original. 

Esse procedimento permite a c6pia 
de programas com mais ou menes 12,5 
Kbytes, o que correspende h quase to- 
talidade dos programas existentes. Os 
usuiries de micros com 48 K podem 
usar es 32 K de mem6ria que ficam apes 
o SGM como um buffer que permite ate 
dois programas de 16 K. 



PROBLEMA 6: Como recuperar uma 
grava9So em fita cassete que apresenta 
probiemas. 



Os tipes de defeitos que podem sur- 
gir numa fita cassete sao os mais varia- 
dos e 6 praticamente impossivel saber 
realmente o que houve, ou qual ^ o de- 
feite, pois normalmente e micro nSo 
permite que essa fita seja carregada na 
memdria, for9ando um NEW sempre 
que tentamos. 

Com o MICRO BUG isso nSe acente- 
ce, peis as retinas de grava93o de SGM 
leem a fita cassete independentemente 
do que elas contem. Dessa forma, d pos- 
si'vel colocar um programa na memdria 
e logo depeis examini-lo e tentar cerri- 
gir os defeitos. O processo para tal estd 
claramente explicado no problema ante- 
rior e deve ser tentado, cercando-se dos 
maiores cuidados. 

Podemos mesmo recuperar progra- 
mas em fitas que sofreram deforma96es 
fi'sicas (amassada eu cortada) ou que 
contenham grava93es diffceis de serem 
normalmente lidas pelo micro. Para as 
corre96es, podemos usar o comando M, 
juntamente com e comando D. 

fndice de sucesse ser^ tante maior 
quanto. maior fer e cenhecimente de 
usuario acerca do sistema de estrutura- 
9ao dos programas em BASIC. 



PROBLEMA 7; Como construir uma ta- 
bela de retinas para pregrama93o em lin- 
guagem de miquina. 



Geralmente os programas em lingua- 
gem de miquina utllizam algumas reti- 



nas de Sistema Operacional do micro. A 
maior vantagem disso 6 que n3o precisa- 
mes escreve-las ou nos preocupar com o 
seu desempenhe, pois elas jd se encon- 
tram na mem6ria, por^m 6 precise mui- 
ta cautela e conhecimento ao usi-las. 

N3o existe ainda nenhuma literatura, 
em portugues, que traga uma tabela 
completa acerca dessas retinas, com in- 
forma95es sobre seu desempenhe em di- 
verses pontes de entrada, os prd-requisi- 
tos de entrada, as cendi9oes de sai'da e 
tambem sebre a situa95o de cada regis- 
trador em retorno, ou seja, quande a ro- 
tina volta ao pento de chamada. 

MICRO BUG pode ser usado para 
a cria9Se de uma tabela, fazendo um es- 
tude pormenorizado das retinas mais 
utilizadas pelos programadores. Tal es- 
tude pode ser feito mediante e use do 
comando G, tendo side os registradores 
previamente ajustades com valores co- 
nhecidos (veja procedimento no PRO- 
BLEMA 3). Se es testes forem feitos di- 
retamente na ROM, nao sera pessivel 
utUizar o BREAKPOINT, porem, na 
maioria dos cases, o programador pode 
transferir a retina, mediante e use do 
comando O, para uma area RAM e ai' 
entSe inserir es BREAKPOINTS que de- 
sejar. 

AS DCVIDAS OPERACIONAIS 

Como dissemos ne inicie desse proje- 
to, a utiliza9ao do MICRO BUG abre 
uma infmidade de possibilidades para o 
usuirie dos micros Sinclair que querem 
usar seu equipamento com um pence 
mais de eficiencia. Serd precise, ne en- 
tanto, algum esfor9o e dedica9ao per 
parte dos leiteres que nos acempanharam 
ate aqui, e que querem seguir em frente. 

A partir de agora, com o SGM com- 
plete, o usuario dispoe de uma ferra- 
menta que pode ser manuseada de fer- 
ma a trazer-lhe uma intera9ao muito 
maier com a maquina. Mas n§e vamos 
parar per aqui. Veremos na pr6xima edi- 
930 come implementar um M6dule Ope- 
racional e como voce peder^ criar o seu 
proprio m6dulo (ou adaptar um para 
seus preposites especificos). Alem disso, 
manteremes um canal, via cartas, sem- 
pre aberte para as duvidas e consultas 
acerca do MICRO BUG. 

N3e deixe de nos escrever se estiver 
tendo algum problema eu, entSo, para 
compartilhar suas experiencias e desce- 
bertas com os outros leiteres. Lembre- 
se, a sua experiencia pode ajudar muito 
um outro celega. ■ 



£ste projeto vem sendo desenvo/vido pels 
EguipB do CPD de MICRO SISTEMAS. sob 
a coordenapSo de Renato Degiovani. 



16 



MICRO SISTBMAS, novembro/64 



MtCRO SISTEMAS. r>ov8mbro/84 



17 



Informatica 84 
promete grandes atra^oes 



Cerca de 300 expositores es- 
tarSo reunidos de 5 a 11 de no- 
vembro na IV Feira Internacio- 
nal de Informatica e XVtl Con- 
grasso Nacional de Informatica, 
que vao se realizsr paralelamen- 
te no pavilhSo do Riocentro, 
no Rio. Os organizadores estao 
esperando mais de 500 mil pes- 
S03S entre profissionais da ^rea e 
publico emgeral. Para isso, estao 
prometendo grandes atra^oes, 
como um aviao Brasflia e um fo- 
guete tipo sonda do Centre T4c- 
nico Aeroespacial; a Casa do Fu- 
turo, totalmente computadori- 
zada, que seri montada pela Su- 
C85u: um setor dedicado a equi- 
pamentos e software voltados 
para a Medicine e a Odontologia; 
e v&Tias atividadas para crian^S- 
Al^m disso, ser3o conhecidos os 
novos langamentos dosfabrican- 
tes, sendo a grande vedete o su- 
per micrSo da Cobra. 

Os organizadores tamb^m es- 
t§o preocupados com a parte so- 
cial e polftica que envolve o se- 
tor de Inforrr^tica. For isso, es- 
tS'o programando um semindrio 



com a presence de antrop6logos 
e soci6logos sobre os efeitos da 
Inforrndtica na sociedade. E con- 
vidaram Tancredo Neves e Paulo 
Maluf para falar sobre como ser^ 
a Poirtica Nacional de Inforn^- 
tica a partir do dia 16 de mar^ 
de 1985, caso sejam eleitos. 

Este ano, a Feira serd dividi- 
da em sete setores: hardware, 
consultoria de software, perif^- 
ricos, suprimentos. pubtica^Ses, 
software aplicativo e pesquisa e 
desenvolvimento. O meior estan- 
de mais uma vez serd o da IBM, 
com 1.000 m2. Outra novidade 
dests ano 6 que a Feira s6 ser^ 
aberta ao pOblico de sexta e do- 
mingo. Nos quatro primeiros 
dies, apanas os profissionais do 
setor terso acesso. Os organiza- 
dores querem, com isso, eliminar 
o tumulto que o publico sempre 
provocava nas ultimas Feiras, fa- 
cilitartdo assim o f echamento de 
neg6cios, objetivo maior da Fei- 
ra. O horjrio de funcionamento 
ser^ das 14 As 22 horas e os in- 
gressos para o publico vao custar 
Cr$ 5 mil por pessoa. 



Expansao de memoria 
para o Color 64 



A Tarrise Projetos ao lado da 
LZ - Sistemes estd preparando 
uma placa de expansao de me- 
m6ria para o Color 64, compat I'- 
ve! com o software existente no 
mercado. A expansao consiste 
em dois bancos de 64 K que po- 
dem ser selecionados por uma 
chave ou por software. Como 
cada banco d isolado, pode-se 
carregar e axecutar programas 
independentemente. 

Outro produto desenvolvido 
pela Tarrise e comercializado pe- 
la LZ 4 o comutador de recursos, 



que se destine, principalmente, A 
Srea educacional. Este sistema 
permite que onze computadores 
Color 64 sejam interligados, for- 
mando un^ pequena rede local 
comandada pelo instrutor, atra- 
v6s de um painal de controle. 
comutador de recursos permite 
que todos os alunos comparti- 
Ihem OS mesmos perif^ricos, di- 
minuindo assim os custos de 
montagem de um i3borat6rio de 
Informatica e agilizando o n\i- 
todo de ensino. 



Maquis lan^a novo micro 

A Maquis Tecnologia e Sistemas Ltda., tradicional empresa de manu- 
ter>980 e suporte de softvware, estS lan^ando o microcomputador profit- 
sional MTS-I V, cujo projeto ]& foi aprovado pela SE I. equipamento i 
baseado em microcomputador Z80-A, com memiria de 128 Kb, e tern 
capacidade para acoplar quatro discos flex fveis de 5 1 /4" a quatro dis- 
cos de 8", al6m de discos rfgidosde 5, 10 e 15 Mb e impressorade 100 
cpsa600 1pm. 

Entre as principals caracterfsticas do MTS-IV estao a modularidade 
de crescimento, que permite o atendimento tanto ao mono-usuSrio co- 
mo d integrapao em rede local, o processamento distribufdo, a simula- 
pao de terminals 2780 e 3270 da IBM e da SISCO e conecpSo com qual- 
quer mainframe com protocolos BSC, SDLC, Pull Select, TTY, VIP e 
outros. sistema operacioral usado 6 o DOS-MB, compatfvel com CP/ 
M. Quanto ao softvware, o usu^rio poderS dispor de uma grande varioda- 
de, entre os quais planiiha eletronica, editor de texto. banco de dados, 
contabilidade, contas a pagar. foiha de pagamento etc. A Maquis fica 
na Av. Barao de Tef^, 7, grupos 501 e 508, Rio de Janeiro, e sou telefo- 
ne« (0211263-3330. 




Cartao tri fun9ao, 
da Spectrum 



A Spectrum estd lan^ando o 
cartao Tri Fun^ao que torna o 
Microengenho 2 totalmente com- 
patfvel com o Apple lie, quan- 
do este possui o Extend 80 Co- 
lumn Text, Card. cartao Tri 
Fun?So possui 64 Kbytes adiclo- 
neis e permite a visualiza^So de 
80 colunas por 24 linhas de tex- 
to no vfdeo, aumentando a ca- 
pacidade de mem6ria. Com a uti- 
liza^ao do cartSo, passa a ser pos- 



sfvei tamb^m a dupMcap^o grdfi- 
ca, com a gerapao do dobro do 
numero de pontos. 

Al^m dessa novidade tam- 
b6m \& se encontra disponl'\nl 
o Videotexlo Spectrum que per- 
mite transformar os micros Mi- 
croengenho 1 e 2 em terminals 
de videotexto. Aldm do softvA- 
re, o produto 6 composto por 
interface de comunicapao assfn- 
crona (ICA) e um modem. 



Grande venda de modems 

A Elebra S/A Eletr6nica Brasileira assinou.com a Embratel,o maior 
contrato braslleiro para venda de modems, num valor de mais de 8 e 
nneio bilhoes de cruzeiros. Com a compra de modems de alta e baixa ve- 
locidade, a Embratel pretende expandtr o Sistema Transdata. Esse con- 
trato, segundo a Elebra, 6 resuitado da recente raestrutura^o do sau 
Departamentode Teleprocessamento. 

Computer Factory 

Computer Factory 6 uma nova empresa, inaugurada em Sao Paulo, 
voltada para a comercializacao demicrocomputadores, porif^ricosesoft- 
ware. No seu show-room, situado i Rua Estados Unidos, 1 .883, profis- 
sionais especializados no mercado de InformAica orientam o cliente na 
escotha do softvuare e hardware, adaptando-os hi necessidadcs de cada 
empresa. Tamb6m podem ser encomendados sistemas espwcfficos, para 
as diversas Sreas de utiliza^So de micros, e a Computer Factory cuida 
ainda da implanta^ao e do treinamento do pessoal. Maiores informagSei 
podem ser obtidas pelos tels.: (01 1 ) 280-2550 ou 64-0769. 

VersaCad, da Cornier o 



O Comicro Microcomputa- 
dores, revendedora de produtos 
de Informdtica que at6entao vi- 
nha atuando no sul do Pafs.inau- 
gurou recentemente seu escrit6- 
rio em Sao Paulo e lan^u na ca- 
pital o VersaCad. Trata-se de um 
software de CAD (Computer 
Aided Drafting) para microcom- 
putadores compatTveis com a li- 
nha Apple e IBM PC. Versa- 
Cad i aplicivel em qualquer am- 
biente de desenho tdcnico, tais 
como, mecanico, el6trico, civil, 
arquitetonico ou em artes grdfi- 
cas. A entrada dos dados ^ feita 
atrav^s de joystick, tectado ou 
mesas digitalizadoras e as formas 
de safda sao monitor de vTdeo, 
impressora grdfica ou plotter. 
Para utilizapao do VersaCad em 
equipamentos compatfveis com 
Apple 6 rtecess^ria uma configu- 



rapSb composta pela UCP com 
64 Kbytes de men>6ria RAM e 
dois drives de 5 1/4"; e para os 
compatfveis com IBM PC, UCP 
com 128 K, monitor, adaptador 
gr^ico para vfdeo, dois drives 
de 5 1/4", podendo ser usado 
tamb^m disco tipo Winchester. 

Na Informatica 84 a Comi- 
cro dever^ lan^r uma stirie de 
produtos que permitirSo a co- 
mercializapao do VersaCad de 
forma mais complata. Entre os 
lan^mentos previstos estao uma 
placa grdfica e um monitor de 
alta resolupao para os micros 
compatfveis com IBM PC, uma 
mesa digltalizadora e um plottM*. 
Maiores informacoes sobre o 
VersaCad podem ser obtidas em 
SSo Paulo, pelo tel.: (Oil) 240- 
8610 e no Rio (021) 221-0706 
ou 224-8012. 



Centro 
de 

Informatica^ 
na ■ 

Micromaq 



Um Centro de Informatica 
que promove reunioes diaries, 
palestras e cursos. Esse 6 o novo 
departamento, \& em funciona- 
mento, da loja carioca Micromaq 
e, atrav^s dele, os usu^rios de 
micros podem se reunir, para tro- 
car Jddias a respeito dos seus 
equipamentos e participar de di- 
versas palestras de interesse na 
drea, ministradas por tdcnicos e 
fabricantes de computadores na- 
cionais. 

Aldm dos cursos oferecidos 
na loja, a Micromaq organiza ou- 
tros, dedtcados ds empresas, nas 
dreasde Eletrdnica, Telecomuni- 
ca^es, Microprocessadores, Sis- 
temas de Comunica^ao e Com- 
putapao. 

Em relapao hs reunioes de 
usu^rios, j^ existe uma progra- 
ma^o estabelecida: segundas e 
quartas-feiras, das 12 ds 14 ho- 
ras, OS da linha Apple; ter^s e 
quintas-feiras, das 12 ^ 14 ho- 
ras, OS da linha Sinclair; e aos 
siibados, OS usudrios do Color 
64. Jd as palestras ser^o sempre 
ministradas is sextas-feiras e o 
tema girard em torno de assun- 
tos do interesse dos alunoi e dos 
usudrios que freqiientem as rau- 
nides. Maiores informa^es po- 
der§o ser obtidas peto tel.: (021) 
222-6088. 



Wordstar e dBase na Tesbi 

Wordstar e dBase sSo os novos cursos que a Tesbi Informdtica estd 
oferecendo em sues dependdncias ou diretamente &s empresas interessa- 
das. 

Continuam sendo oferecidos tamb6m os cursos de BASIC 1 e 2, com 
turmas pela manha, tarde e nolte, em vSrios hor^rios. 

A Tesbi fica na Av. Vinte e Oito de Setembro, 226, loja 1 10, em Vi- 
le Isabel, Rio de Janeiro. 



Seminarios Servimec 

A Servimec \& tem programados os seguintes seminarios, pa- 
ra o mSs de novembro: "Plar>o Diretor de Informatica — Uma 
Necessidade Atual", nos dies 12, 13 e 14; "O CPO em Tempo 
de Crise — Como Reduzir Custos de Sistemas de Informacao", 
nos dias 21, 22 e 23; "Planejamento de Instata^o de 4381", 
nos dias 26 e 27; "Administra^ao de Ambtente VM/VSE — T6c- 
nicat e Procedlmento", nos dies 28, 29 e 30. Todos ettes leml- 
ntfrtos vSo se realizar em Sao Paulo e n>alores informa(5ei po- 
derSo ser obtidas pelo tel.: (Oil) 222-1611. 



Lotus: 
Consultoria e Treinamento 

Inaugurada em julho de 1963, a empresa carioca Lotus Software a 
Consultoria especializou-se no treinamento e implanta^^ao, em empresas, 
dos mais sofisticados softwares recentemente lan^dos no mercado norte- 
americano, dando especial aten^o ao Lotus 1-2-3, dBase H e Multiplan. 

Segundo o Diretor da Lotus, Carlos M^rio Gomes de Almeida, que 
traz em seu currfculo um perfodo de treinamento intensive na empresa 
americana Four-Five-Six, na drea de desenvolvimento de software, ope- 
raro 1-2-3sem quatquer tipo de aprendizado dirigido ^diffcil. "Levaal- 
guns nwses para absorver. Noprimeirodia, vocS j^ poder^ fazer uma pla- 
niiha bdsica, mai ainda nSo ter^ usado 5% da potencialidade do software". 

A firma mlnictra cursos de 20 horas, com uma mMia de dois alunos 
por equipamento, geralmente nas instalagSes do cliente, cobrendo por 
pessoa 40 ORTNs. Embora sediada no Rio de Janeiro, Ek Av. Almirante 
Barroso, 91 /1 107, Centro, a Lotus conta com uma equipe que se mobi- 
lize por todo o pafs, fazendo cursos s palettras. O telefone 6 (021 ) 220- 
5371. 



Novos 
Donos 

As lojas Compute e C. C. 
Compute tim agora novos 
donos. As duas lojas, sltuadas 
em Sao Paulo, foram compradas 
por um grupo composto por seis 
s6cios, proprietSrios da M. M. D., 
empresa de assistdncia tunica e 
software. Os nonnesdas lojas 
foram mantidos e Id podem ser 
encontrados equipamentos da 
linha Apple {Unitron, CCE, 
Appletronic e Spectrum, entre 
outros); TRS-80 (CP-300 e 
CP-500, da Prol6gica); e Sinclair 
(TK83 e 85, da Microdigitat; 
e CP-200, da Prol6gica). 
AI6m de micros, tambdm tSo 
comercializados drives, 
impressoras, formul^rio 
contfnuo, livrose revistatde 
Informdtica, videogames e 
software da Royal Software, e 
de outras software houses. O 
grupo aceita encomenda de 
software para Sreas QS[>ecfficas e 
presta assistencia t^cnica, 
atravds da M. M. D. Nas lojas 
sSo oferecidos cursos de BASIC 
Avanpado e Opera^ao de 
Equipamentos da linha Apple e 
deTK, para iniciantes. O mesmo 
grupo estarS inaugurando em 
breve uma nova f irma, a 
Supritudo, espectalizada em 
suprimentos para 
micro computadores. As lojas 
Compute e C. C. Compute ficam 
respect ivamente na Rua Estados 
Unidos, 2.441, tel.: (Oil) 
852-8533 e Av. Sumar«, 267, 
tel.: (011) 262-5097. 




STRINGS 




O Sistemas S. A. Computadores, software house de UberlSndia, estd lan- 
garKlo no mercado dois programas para a linha TRS-80: MANUT — 
TRANS e APURA - TRANS, ambos destinados H empresas da Area da 
terraplanagem e transportes. > A Microhouia 6 uma nova empresa de 
Inforn^dtica de Brasflia e se destine h presta^ de servi^s contdbeii e 
a ministrar cursos de programapao. 9 A da/Dados oferece cursos sobrB 
bancos de dados e planilhas eletrdnicas para o publico em geral e cursos 
fechados para empresas. Informa^oes pelo tel.: (Oil) 285-0132, SP. • 
Jd estd em funcionamento a fdbrica de fibres 6ticas da ABC XTal, em 
Campinas. A produce inicial esti prevista para 1 mil e 500 quilometros 
de fibras por ano. A fibre 6tica substitui o cabo de cobre, tradicional- 
mente utilizado em telecomuni canoes, e 6 Imune a qualquer tipo de in- 
terfer^ncia, inclusive magn^tica. • A LoJIcrad UnlversitArio de SSo Pau- 
lo, centro de ensino de computapao, estd oferecendo diversos cursos na 
drea de Informdtica. Para programadores, operadores, analistas de siste- 
mas e de produ^ao hS cursos de VSE/VSAM e CICS/VS. Outros cursos 
sao destinados ao aperfei^amento da linguagem COBOL e introduce k 
Informdtica. • A Companhia de Processamento de Dados de Sao Paulo 
— PRODAM acaba de receber o prlmeiro dos dois computadores adqui- 
ridos junto ao grupo IBM do Breiil. Trata-se do modelo 4381, que ird 
substituir dois dos trSs computadores que estlfo em uso hi dez anos na 
PRODAM. Com esse novo sistema, a PRODAM passa a atender secret^ 
rias que antes nao atendia. como as de EducapSb, Saude e Esportes. • A 
ElAtrtca Editors Ltda., especlalista em livros de eletr6nica ecomputa^fo. 
acaba de langar "Visicalc — Manual de Refer§ncia R^pida", de Sergio 
Luiz Leonelli. iivro reune um material destinado ^ consulta rdpida 
dos comandos, ao estudo da estnjtura de formatapao de matrizes, entre 
outros. • O CIM — Centro de Informatica Marflia oferece normalmente 
cursos de BASIC em trds nfveis; progremapao em linguagem COBOL; 



programapao estruturada e curso de Ticnico em Processamento de Da- 
dos. Maiores informa^oes pelo tel.: (0144) 33-1483. O A CItrosuco Pau- 
lista S.A., exportadora de suco de laranja, instalou em sua fdbrica novos 
equipamentos de processamento de dados fomacldos pela ABC Bull, 
fabricante de computadores de grande porte. projeto pcevS, futura- 
mente, a instalapao de mais 60 terminals se encarregando das tarefas ad- 
ministrativas, flnanceiras, vendas, produ^ao, controle de tr^fego e da 
firea citrfcola. • A empresa mineira Mlkro Informitica oferece um cur- 
so especial de BASIC Estruturado para Profissionais de Ciencias Exatas. 
Ai6m deste, a Mikro ainda ministra cursos de Opera^fo e Programa^So 
BASIC I e II e tnformdtica para Jovens. Maiores informagSes podem ser 
obtidas pelo tel.: (031 ) 222-3035. • "Utando Lir>guagem de M^uina", 
de Mdrio Schaeffer, 6 o novo langamento da Urania Publlca^des e Assm- 
loria Pedag6gica Ltda. O Iivro destlna-se aos usudrios de micros compa- 
tfveis com a linha Sinclair, que \& conhepam os comandos do Z80 e que 
queiram se aprofundar na utilizagao das varidveis do sistema, nas sub- 
rotinas da ROM, principalmente nas referentes a cilculos. A obra con- 
t6m ainda muitos exemplos, aplicapoes e programas, comentados linha 
por linha. • O INCRA - Institute Nacional de Colonizapao e Reforma 
Agr^ria criou um Ni^cleo de Informa^oes Gerenciais, com o objetivo de 
atender ds necessidades de processamento de dados no suporte adminis- 
tretivo. Para o funcionamento do novo Nucleo, o INCRA adquirlu um 
minicomputadof ND 86/E e um micro NO 86/M, ambos da Novadata. 
• A Embntel comprou o sistema Cetus de rede local para interllgar os 
microcomputadores existentas em sues instalacoes. sistema 4 produ- 
zido pela empresa carioca Cetus Informatica 5.A., com tecnologia total- 
mente nacional. • A Datamicro Informitica informa seu novo telefone: 
(021)511-0395. » 
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Assespro incentiva 
negocios e cooperagao 



Espera-se de 1985 que este 
Mia o ano de fortalecimento do 
software. A julgar peic sucesso 
do 59 ENESI (Encontro Anual 
das Empresas de Servicos de In- 
formStica), esta hip6tese 6 bas- 
tsntevi^el. 

De 2<1 a 26 de setembro, no 
Hotel Nacional iRio de Janei- 
ro), foram debatidos pelos em- 
presdrios do setor diversos pro- 
blemas comuns, al^m de ter si- 
do o encontro paico de intensas 
discussfies poirticas. Os temas 
discutidos na oportunidade fo- 
ram divididos por mddulos que 
abordavam pontos como a Co- 
mercializat^o; a Consultoria; o 
Bureau e Recursos Humanos e 
Treinamento. 

A preocupacS'o com a reali- 
z8^D de negbcios esteve presen- 
te n£o s6 no tema central do 
evento — A Tenddncia Mundial 
de Ne96cios no Setor - mas 
tamb^m na assinatura de acor- 
dos e programas cooperados e 
no inoentivo d uma Bolsa de 
Neg6cios, que deverd opersr em 
esquema contfnuo na rede Ci- 
randSo, fomecendo informacOes 
e subsfdios necessaries ao fecha- 
mento de transacCes. Paratela- 
mente ao Enesi, foi realizada a 
1? Expo-Sofi, com uma mostra 
de programas e sistemas desen- 
volvidos p>elas empresas de servi- 
?os. 

A abertura do encontro foi 
marcada com um almo^o ofere- 
cido A imprensa, onde foi noti- 
ciada a assinatura de um progra- 
ma tficnico-comercial de "inte- 
resse recfproco" da Assespro 
(entidade das empresas de servi- 
^o) com a empmsa multinacio- 
nal Burroughs. O presidente do 
59 Ertesi, Dr. Jos^ Maria Sobri- 
nho, ressaltou ser bastante opor- 
tuno aste empreendimento con- 
junto, frisando ser "ineg^vel" 
que a Burroughs tem, dos asso- 
ciados da Assespro, um carinho 
muito especial", pois a maior 
parte dos bureaux sSb clientes 
da multinacional. 

Carinhos A parte, o fato 4 
que esta aproximap^o vem rea- 
firmer a postura independente 
que tem caracterizado a atua- 
cSo da Assespro nos liltimos 
ams. A necessidade de empreen- 
dimentos conjuntos foi definida 
pelas diretorias da Assespro e da 
Burroughs como' uma forma de 
trazer beneffcios ao usudrio fi- 
nal, "aquele que, afinal, page as 
contas", frisou Dr. Guy de Ma- 
nuel, Presidente da entidade, e 
"cujos interesses sSo, geralmen- 
te, pouco wisados", sentenciou o 
Presidente da Burroughs, Henry 
Eicher. 

programa 6 constitui'do de 
onze projetos aut6nomos que 
tratam de diversos pontos do re- 
lacionamento Burroughs — bu- 
reaux de sen/)Qo, entre eles a 
comercial izapSo de sistemas pela 



Burroughs; a tradu^tfo de ma- 
nuals; a atualizapffo tunica; o 
incentrvo de cursos e a indica- 
pSfo de empresas nacionais para 
o desenvolvimento de progra- 
mas-produtos identificados pela 
empresa norte-americana. 

exposiqAo de software 

A mostra de software que 
ocorreu paratelo ao evento, no 
pr6prio Hotel Nacional, decep- 
cionou um pouco, pois espera- 
va-se um maior nOmero de ex- 
positores. Das empresas presen- 
tes, ressaltamos: 

• A Simicron demonstrou sis- 
temas de edi^So de textos; con- 
trole de frota de vefculos e ope- 
ra^Ses de open market. 

• A Fluxo apresentou seu sis- 
tema de gest^o de estoques, e a 
empresa conta com outros siste- 
mas jd em comercializapd'o, en- 
tre eles o de contabilidade pu- 
blica. 

• A Cincotn compareceu com 
sua linha de software de base e 
gerenciamento de Sancos de Da- 
dos. O destaque. por^m, fica 
com o PC Contact, que conecta 
OS equipamentos das families 
IBM 370 e 43XX aos micros 
compatCveis com o PC da IBM. 

• Dez sistemas, todos pera 
CP/M, foram apresentados pela 



MIS-lnformfttica, entre eles fo- 
Iha de pagamento; open market 
e controle de produc^o para in- 
dustrias de calgados e confec- 
96es. 

• Trabalhando exclusivamente 
para a drea financeira, a ALTA 
Assessoria n>ostrou v^rios pro- 
gramas criados pela empresa, to- 
dos para configuragSes distintas 
da linha Apple. Destacamos o 
Altaplan, para proje^Oes de lu- 
cres a perdas e o Altacaixa, pa- 
ra gerenciamento financeiro de 
pequenas empresas. 

• A Contsp mostrou, entre ou- 
tros, sistemas de avalia^So finan- 
ceira e de AdministrapS'o de 
Im6veis. 

AI4m das empresas de soft- 
virare, tres fabricantes de hard- 
ware tiveram participac^o ativa: 
a Itautec montou seus estandes 
com o objetivo de mostrar seu 
piano de incentiva & criapS'o de 
software nacional para seus 
equipamentos. A Unhron apre- 
sentou sua "seleg^o de melho- 
res", um grupo de sistemas 
criados para seus equipamentos 
e aprovados pela empresa, e a 
Prol6gica funcionou, em seu es- 
tande, com o CP-500 em seu no- 
vo gabinete cinza-escuro, dis- 
tribuindo folhetos com a rela^ffo 
complete de software para sua 
linha de equipamentos. 



Videotexto para 
OS micros da Sysdata 

A Sysdata, fabricante dos micro Junior e Sysdata III, est^ presente 
na IV Feira Intamacional de Informfitica, apresentando seus equipamen- 
tos ligados ao sistema videotexto. Sergio Dawi, Gerente de Marketing 
da empresa, afirmou que o usudrio do Sysdata HI e do Junior j^ pode se 
inscrever no piano da Telesp. Para isso, basta qua tenha um modem para 
fazer a tiga^o do micro ao telefone. 



Micros 
na Ford 



Microcomputadores nacio- 
nais i& est^o sendo utilizados rut 
produpao, desenvolvimento e 
controle de qualidade dos moto- 
res da Ford do Brasil. Aldm de 
dots computadores Burroughs 
de quarta gera^ao, cadaum deles 
com 6 Mbytes de mem6ria, a 
produ^ao de motores da Ford 
conta com seis microcomputa- 
dores Unitron, dois micros da 
Cobra e dois Microengenhos, da 
Spectrum. A estes equipamentos 
estSo ligados 35 terminals devf- 
deo e 16 impressoras. 

J^ foram implantados mais 
de 20 sistemas para acelerar a 
producao dos motores. Alguns 
desses sistemas sSo programados 
para historiar problemas eoslo 
cais onde estes estao ocorrendo 
ajudar no controle da qualidade 
avaliar pepas e f ornecedores; emi 
tir notas fiscais e dupticatas; 
controlar pedidos e entregas; e 
estudar projetos. custos de pro- 
dupao e de vendas. 



Catdlogo 
de livros 

O Catdlogo Brasileirc de Pu- 
blicapoes, banco de da;los orga- 
nizado pela Livraria Nobel, esta- 
T& disponfvel no Videotexto a 
partir de 1985, atrav^s da Con- 
troldata do Brasil. Catdlogo 
reOne 46 mil tftulos, com carca 
de 9 mil a 800 autores e 730 edi- 
toras e foi mostrado na 8.3 Bie- 
nat, realizada em agosto ultimo, 
em SSo Paulo. Atualmente ele 
pode ser acessado atravdsde mi- 
crofiche, terminal de computa- 
dor, telex ou microcomputador. 



Micros e impressoras da Imares 

Asloias Imarfede Sffo Paulo - Av. dos Imarte, 457, tel.: (Oil) 61-4049 e 61-0946 e Rua Dr. Re- 
nato Pees da Barros, 34, tel.: (Oil) 881-0200 ~ apresentam sua tabela de pre^sv&lidaatddezembro: 



MicrodigrtsI 

.TK83(2Kb) 19,14 ORTN 

. TK85 (16 Kb) 32 ORTN 

. TK85 (48 Kb) 54 ORTN 

. TK2000 75 ORTN 

Prol6gici 

. CP-200 (16 Kb) 31 ,9 ORTN 

. CP-300 (48 Kb) 64 ORTN 

. CP-500 (CPU com 48 Kb) ... . 207 ORTN 

. CP-500 (com 1 drive) 296 ORTN 

. CP-500 (com 2 drives) 380 ORTN 

Unitron 

.AP II (48 Kb) 120 ORTN 

. AP IITI 135 ORTN 

CCE 

. Exato (48 Kb) 109 ORTN 

Dirniac 

. D-8100 (48 Kb) 82 ORTN 



Impressoras: 
Elebra 

. M6nica 160 ORTN 

. Emflia Grdfica 400 ORTN 

, Alice 480 ORTN 

Elgin 

. MT 141 i 350 ORTN 

. Lady 320 ORTN 

Grafix 

. MX-80 184 ORTN 

, MX-100 306 ORTN 

Globus 

. M-100X 300 ORTN 

Prol6gica 

. P-500 145 ORTN 

Oitmac 

. DP-80 150 ORTN 



£ 





Memphis. 
A melhor op fad 

ma levenaedor. 



Com B MEMPHIS vpcS gaoha ns compra: 

Methares pre^os; 

Msfhores ccfK^des de pagamento; 

Embatagens econdnvc^ 

faxcfusivaspara revendai; 

G/snds diversJfics^Mo d&pfOdutos; 

EstoQue pa/a pronta entrega; 

£ affido rnais: 

Repassando b GARANVA 

MEMPHiSaos saus dientes, 

voc6 estsf^ ofers<:endO'fhes 

mafof ssgufan^a e 

piana satisf&Q§o. 



MEMPHIS: a csrU^ 
do lucfo soguro- 
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^011)800-8462 
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MATfUZ SAO PAULO: 

Av.An^^C*. 3£'FoFw; t011t82S-9BO0 

CENTRAL OE ^/£WMS «JkO PAULO: 

Av. Amdro Anwdci. 106 - fonm : 101 1 1 2S2 - S&77 -- Jtitx [■0■^ 1 i 3i6^ 

fUlAL niO K JANEVtO: 
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Com v4rios terminals eKecutando programas especificos.a lmplania<?aodo DIGIPLEX propordorar^ a sua em- 
pmsaum aumentoda produiividade e qualidade. i^ quea interligatjao on linedos lermJnais permitir& que se 
tmbaihe com dados e informagoes atualizadas. 

Ligados ao DIGIPLEX poderao estar ale "16 lerminais inteligentes, lazendo a contabilidade, controle de esioque, 
vendas e produ^So, malas diretas, estatisticas ou seja atendendo a todas as necessidades de sua empresa, 
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Lii i s Roger io Dupont 
Estanc ia ^^elha - RS 
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Assim aconlece 

m ciencia. na fi- 

losofia, na enge- 

nharla. nasarfes, 

na moda. no dia a 

dia. 

Hasla uma boa ideia. 

E uma boa ideia, que 

se chama Moore, esta 

evoluindo sempre, E fican- 

do muito melhor. 

Mais complcta. 

Agora, altm de fabricar todo lipo 

de Improssos para sua empresa. es- 

t^ comer cializando tudo o que seu 



fka melfwr ainda. 




ctjmputador ne- 

cessila: Supri- 

menlos. Servit^os 

espeeializados e 

Acessorios. 

Assiin e 

A maior fabrJL-anle 

de rormulariois Conh- 

nuos do mundo — a Moore 

- evoluiu para o seu Ff)R- 

ced(;h total paka in 

FORMATKIA. Apenas uma gues- 
tao de acompanhar o seu tempo. 
Agora, chame um reprusentante 
Moore e fique melbor ainda. 





FORMULAmOS - SUPRIMENTOS - ACESSOREOS 



FtUAlS. Abt'TeL: lUll i 452.SI13* Brltiti -Tel . i09l J 224 2663 • BrloMorJUHiCF-TeL: lOSli 3444233 TLX: L(KJL»2Ut>li ■ Hlum«nau-Te9.. C(H7:i»^31MH TL: 
tOiT^H79*hrM\i\iii -Tel.: ( OGl I 2^.3563 - TLX. i{KI i ^SQ •CatnpEnas Tel.: 4 0192] ^.2044 -TLX; <ai92J lBGE*Caj(ba>idDSul ' Tcl.: iC&4T22].5^2*<:'uritlh: 
Tel : 404]J224.&a€l -TLX: IMI i .ST99* Flori0D><)PQti!i -T^].: {(HK2:i ^.(»9D ■ Fovialpia-Tcl.: \^X^\23Xi.H^-TLX: iVmi l%9-4kiiJnia Tc3.: i[fi2h2^ BEi:]*<iu. 
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rOI ]» 36069 -SiDFau|p/SiO,Al1rLa^a-T<^]: lO^l J 322.9452 -SiD Paulo/ V. Mariana Tel. : lOII 1 572.5EU - TLX: 4011) ^072* VarKUiha -I^L: <<ia&>22L5430< VU 



Muitos usuarios de micros pessoais ja devem ter passado pe- 
lo problema de ter que comprar uma fita nova todas as vezes 
que deram ou trocaram um programa com um amigo. Este 
programa vai sotucionai este e outros problemas dos usuirios 
dos micros da Unha Sinclair, com um minimo de 16 Kb, usan- 
do para isso a fun^ao Cofre, que fica reservada na RAM-TOP 
e pode ser utilizada com qualquer programa. 

Esta fun<^ao pemiite ao usuario trocar todos os codigos e 
caracteres do seu programa por outros, numa opera9ao alterna- 
da. Assim, se o programa contiver, por exemplo, AA, eles nao 
serao codificados em + +, mas sim em + -. Com a fun^ao 
Cofre, o usuario dispoe de n voltas, ou seja. digitando-se um 
programa qualquer (tendo previamente carregado a fun^ao), 
escolhe-sc n X RAND USR 32600 (direita) ou n X RAND 
USR 32650 (esquerda). Apos tsto, o programa ficaia em para- 
fiisc, todo ou parcialmente, pois a fun^ao fechara o programa 
ate onde encontrar a trava que e rL** REM P U L Z . Quando o 
programa encontra esta combina^ao, encerra o chaveamento, 
mas o restante nem sempre podera ser listado. Pode-se tambem 
utilizar a fun9ao somente para codificar um texto secreto. Para 
isso, basta digitar I PRINT ". . . texto . . . P U L Z ". 

Para dar ini'cio ao programa digite: 

POKE 16388,56 
POKE 16 389,127 
NEW 
1 REM (SETENTA CARACTERES QUAISQUER) 

A seguir, entre com o Bloco Assembler com o auxilio do 
Micro Bug ou do Editor Assembler (MS n9 23). Complete o 
programa Qyfre em Basic. Depots, grave o programa com RUN. 
Quando aparecer 9/10 digite NEW e pronto. Toda vez que for 
carregar a funqao nao esquet^ de antesdigitar POKE 16388,56, 
POKE 16389,127 e NEW. Digite ou carregue um programa 
qualquer e acrescente como ultima linha, ou onde quiser, ex- 
celo na primeira: (N" da linha) REM P U L Z . 

Digite RAND U#« 32600 para a direita e 32650 para a es- 
querda. 

Fa^a quantas voltas quiser, mas nao esque9a: para recuperar 
o programa deve proceder exatamente ao contr^o. Se, por 
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exemplo, digitar RAND USR 32600 (direita) e RAND USR 
32600 (direita) pedindo uma Ustagem, nao encontrara mais 
o mesmo programa. Para isso, precisara abrir o cofre, digitando 
RAND USR 32650 (esquerda) e RAND USR 32650 (esquer- 
da). Agora, voce podera pedii nova Ustagem. Para escolher seus 
codigos secretos, basta escolher um valor X e um Y e digitar; 



POKE 32604, X 

POKE 32654, {256-X) 



POKE 32609, Y 

POKE 32659, (256-Y) 



Para inaugurar o programa, empreste uma Hta para um ami- 
go com OS seus melhores programas, mas em Cofre. A sub-roti- 
na fica em outra fita, ou pode ate deixar junto, pois ele, mes- 
mo que ja tenha lido essa dica, vai ficar enrolado tentando des- 
cobrir o segredo. . 
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15573 


F3 


ID 















Bloco Assembler 
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PRINT 


^&£^afe^ 


" . "MICRO 


SI3T 


EMhS 


' 
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PftINT -■ 


UJ13 PO 


3ERI0 


DUPONT 1 


il9S: 


Si" 










s 


LET ZE= 


16514 








t 


LET JhG 


=32500 








/ 


POKE Jh 


G .PEEK 


ZE 






^ 


LET . JhG 


=.jh5 + 1 








■^ 


LET ZE= 


ZE-rl 








10 


IF -JfiG^ 


32665 THEN 5" 


"QP 




11 


GOTO 7 











Cofre 
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1^ ^ H ^ *MH* t4 ****** H ^ iHM* ** *t *nt ** *t *t *4 4HHM 
i;rs BG t r s 80 t:rs BO t;rs BO trs 
**#« ^^ IMmt*** tt t*W*4 »* t* ** tt *n***^*********tt*M***tH+t***H* ****»**«** tn**ttH**t*t**tn*t***t*U*H**^*»**»**H* ****** **tt*******^ 



Rl:-M 

Ri-M 

Rl-M 
R !:>! 
REM 
Ri; ii 
Ri;-H 
REM 



ii-^ii H^tf if"^ K.* <f% M ry <y if;:- m ei; ii:"i! ii::ii iri: f^' f ;> 



, J o s p R i h e i f o F' p n a H k t a 
l-i e 1 o I "I o r i z o n t f? " M (;i , 

Dirr iOO 



A Digitus dotou seu microcomputa- 
dor DGT-100 de uma interface paia 
gravador cassete operando a velocidade 
de 2000 bps (bits por segundo). Para se 
valer de sua compatibilidade em softwa- 
re com o TRS-80 e. por conseguinte, 
com CP'500, D-8000. Naja, JR e 
outros. o DGT-100 emprega urn coman- 
do especial (# S) qucjuntamente com 
urn anai^ particular das conecfSes ao 
gravador. pprmite a leitura de fitas 
gravadas em^500 bps, dando acesso a 
uma vasta bil^oteca de programas dis- 
poniveis no mer^ado. (Observafao; nos 
primeiros DGT-K)G lan9ados. era neces- 
sirio usar um circuito externo ao com- 
putador e os programas utilitdjios 
SYS500 e BAS500 numa opeia9ao 
muito trabalhosa.) 

Por outro lado, muitos usuarios do 
DGT-100 gostariam que seus programas 
pudessem ser lidos por outros micros da 
familta TRS-80. fabricante, no 
entanto, 56 resolveu parcialmente o 
problema, oferecendo um programa 
chamado CONfVBAS que possibiJita a 
grava^ao de programas BASIC a veloci- 
dade de 500 bps. Por isso, escrevi o 
utilitario CNVSYS paia gravar progra- 
mas em linguagem de maquina (SYS- 
TEM) em 500 bps. 

GRAVANDO EM FITA CASSETE 

Antes de descrever o programa 
CNVSYS, acho interessante fazer algu- 
mas cohsidera9oes sobre a opera^ao da 
interface de cassete do DGT-100. Os 
sinais digitals (bits) sSo transformados 
em pulsos de audio para que possam ser 
gravados em fita cassete. artigo For- 
mato de gravagao em cassete, de autoria 
de Daniel Augusto Martins (MICRO 
SISTEMAS mimero 21, junho de 1983), 
mostra como sao codificados os bits e 
I e como e a estrutura de um programa 
gravado. 
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O DGT-100 utiliza a porta de E/S 
255 (FFH) para interfacear o gravador. 
Enviando uma sequencia adequada de 
bytes a esta porta, atraves da instrujao 
OUT do Z80, pode-se obter o efeito 
desejado. Os bits usados s3o: e 1 (para 
controte do sinaJ de sai'da) e 2 (para 
comando do motor do gravador). bit 
3 6 empregado para controle do formato 
de vi'deo e os demais n3o s3o utUizados. 

Assim. alternando-se o estado do par 
de bits e 1 entre 01 e 10 obtdm-se, na 
sai'da MIC, um sinal de audio, enquanto 
mantendo-se ambos os bits em zero, 
corta-se o sinal de saida. Quando o bit 2 
vaJe 1 , motor do gravador e ligado. 

A ROTINA CNVSYS 

A rotina CNVSYS esta listada em 
Assembler e vem acompanhada do 
c6digo de maquina correspondente . Para 
evitar reservar espa90 no topo da mem6- 
ria (resposta ao PROTEGER?), resol- 
vi colocar o c6digo na parte inferior da 
RAM (abaixo do programa BASIC), 
ajustando, convenientemente, os para- 
metros ini'cio do BASIC (endere9o 
40A4H) e inicio da tabela de variiveis 
simples (endere9o 40F9H). 

A rotina CNVSYS requer quatro in- 
fortna96es: titulo do programa, endere90 
inicial, endere9o fmaJ e endere90 de en- 
trada, fornecidos com o comando SAVE 
que, normalmente, nao i empregado em 
sistemas cassete. A sintaxe adotada 6: 

SAVE TIT, INIC, FIM, ENTR 

onde: 

. TIT — nome do programa (at^ seis 

caracteres); 

. INIC T- endere9o inicial hexadecimal 

(ate quatro caracteres); 

. FIM - endere90 final em hexadecimal 

(ate quatro caracteres) ; 



. ENTR — endere90 de entrada em 
hexadecimal (at^ quatro caracteres). 

Para obter detalhes sobre a utiliza9ao 
de .comandos especiais em sistemas 
cassete, sugiro consultar o artigo Coman- 
dando o relogio e o gravador no CP-500, 
de Mauri'cio Baduy, MICRO SISTEMAS 
mimero 1 8, mar9o de 1983. 

Creio que os comentarios apresenta- 
dos junto a list^em servem para esclare- 
cer o funcionamento do programa que 
pode. em linhas gerais, ser dividido nos 
seguintes trechos: 

. Linhas 580 a 1080: conversao dos tres 
endere90S fornecidos pelo comando 
SAVE para bindrio e armazenamento na 
pilha (stack); 

. linhas 1090 a 192U: grava9ao do pro- 
grama byte a byte; o titulo fornecido e 
transferido para a fita e o mimero de 
blocos, o mimero de bytes, os bytes de 
verifica9ao (check-bytes) e o enderefo 
inicial de cada um sao calculados e 
gravados juntamente com a codifica9ao 
do programa que e lida na memoria; 
. linhas 1970 a 2300: sub-rotina GR506. 
obfida do programa CONVBAS da 
Digitus (esta sub-rotina recebe um byte 
no acumulador, examina-o bit a bit e 
envia o sinaJ de iudio correspondente a 
sai'da MlCl); 

. linhas 2340 a 2440;mensagem de erro 
que aparece na tela nos seguintes cases: 
endere9o com car^ter nao hexadecimal, 
endere90 com msis de quatro caracteres 
ou endere9o final menor que o inicial. 



COMO USAR O CNVSYS 

Para utUizar a rotina CNVSYS voce 
deve entrar com o programa Assembler 
e montd-lo usando um editor Assembler. 
Depois de gravar a versao em c6digo de 
maquina, basta carregd-la com o coman- 
do SYSTEM do BASIC ou R do DIG- 
BUG. Feito isso, o comando SAVE 
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estari a sHa disposi9ao. conforme des- 
crito anteriormente. 

Se programa em linguagem de 
maquina que voce pretende gravar 
come9a abaixo do endere90 442DH, 
voce terd que alterar a posi9ao do 



CNVSYS para o topo da mem6ria 
(modificar a linha 570 e cancelar as 
Unhas 480 a 510). Neste caso, antes 
de carregar a rotina, voce deverd respon- 
der a pergunta PROTEGER? com o 
mimero adequado. 



E finalmente, se voce nao dispSe de 
um editor Assembler, pode entrar com o 
c6digo-objeto diretamente na mem6ria 
com o auxilio do DIGBUG. Aten9ao, 
pois a rotina nao 6 relocalizdvel. 
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CNVSYS 








0D120 




Escr i t □ 


por Jose' Ribeiro Pen a Net o | 






00130 




Uer sao 


1.0 


Abril 1983 






□01 40 














00150 


'; Este 


programa 


perm i t e ao DGT- 


100 gravar programas em 






001 60 


; 1 1 nq 


jagem dt 


maquina (SYSTEM) 


, na velocidade de 500 






0017D 


; bps , 


med i ante 


o uso do comaric 


o SAUE, com a seguinte 






OOIBO 


; S 1 nt 


a>:e: 










00190 






SAUE TITULO, INICIO, FIM, CNTRAOA | 






00200 


; onde 












00210 




TITULO: 


nome do programa <ate ' 6 caraLieres) | 






00220 




INICIO: 


endereco 1 n ic i a 


1 em hexadec i mal 






00230 




FIM: 


endereco final 


cm hexadec i mal 






00240 




ENTRADA 


: endereco dc en 


trada em hexadec 1 mal 






□ 0250 


( por 


EKeoipIo: 










002&0 






SAVE PROGR, 7000, 7ADE, 71AB | 






00270 


i 












00280 


; Eftte 


programa 


ocapa espaco da 


HAM logo abaixo dos pro- 






00290 


; 9ranas BASIC. 


Nao necess i t a , 


30IS, de area protegida. 






00300 


; Caso 


O programa SYSTEM a ser 


gravado camece abaixo do 






00310 


: enderecD 442DH, voce deve alt 


erar o endereco de ini- 






00320 


; cio para o topo da RAM (passo 


570), cancel ar os pas- 






00330 


; SOS 


IBO-SIO e 


proteger espaco 


su ficiente da memor i a. 






00340 














00350 


• «MIINNIIM)llt<t»'l()t««»«M<)»«<t«K««»*M«*«««»««»««<)««lt*«<)««««llltM<t> | 






003&0 














00370 


; Definlcao das 


rot ina& da ROM 


jt il izadas pelo CNVSYS 






00380 










Iftl9 




00390 


BASIC 


EQU 


1A19H 




0221 




□0400 


SAIBIT 


Eau 


221H 




0033 




00410 


OISPL 


EQU 


33H 




0211 




00420 


LIGA 


EQU 


211H 




OlFB 




00430 


DESLIG 


EQIJ 


IFBH 




<tDE<& 




00440 

00450 


POSBSC 


EQU 


40E6H 








00460 


; Mod i f J cacao d 


□s pEir amet ros da 


BASIC 






00470 










40A4 




0D480 




ORG 


4DA4H 


;Inicio do progr. BASIC 


40A4 


2844 


00490 




OEFU 


FINAL 




40F9 




□ □500 




ORG 


4QF9H 


;Inicio tabela variaveis 


40F9 


2D44 


□0510 




DEFU 


FINALt2 


; s i mp 1 e^ 


41Ai 




□ □S2^ 




ORG 


41A1H 


; Endereco de salto do 


41A1 


E942 


00530 
00540 




DEFU 


CNVSYS 


;SAVE 






00550 


; flot ina CNVSYS 










00560 










42E9 




00570 




ORG 


42E9H 




42E9 


2AE&40 


005BO 


CNySYS 


LO 


HL, (POSBSC) 


;Ir ao inicio do comando 


42EC 


E5 


D0590 




PUSH 


HL 


;5AVE 


42ED 


D7 


00600 


PRXCAfi 


RST 


lOH 


;Sm1 tar titulo 


42EE 


FE2C 


00610 




CP 


', • 




42F0 


20FB 


00620 




JR 


NZ.PRXCAR 




42F2 


O&OQ 


00630 




LD 


B.O 


fZerar rontador argum. 


4rF4 


OEOO 


00640 


LEARG 


LD 


C,0 


fZerar contador digitos 


42FA 


110000 


00450 




LO 


DE.O 


f Zerar endereco 


42F9 


D7 


00660 


LEHEX 


RST 


lOH 


;Ler caract er 


42FA 


2835 


00670 




JR 


Z, GUAR DA 


; Se do i 5 pont os 


42FC 


FEOO 


00680 




CP 







42FE 


2S31 


00690 




JR 


Z.GUAROA 


;0OH 


4300 


FE2C 


00700 




CP 


*, ' 




4302 


2820 


00710 




JR 


Z.GUARDA 


;DU vi gula, guardar 


4304 


OC 


00720 




INC 


C 


; Increment ar c on t ad or 


4305 


FF3n 


00730 




CP 


'n ■ 


tCoawpr&an hcxa-binaria 


43D7 


DA1244 


00740 




JP 


C,ERRO 




430A 


FE3A 


00750 




CP 


'9'+l 




430C 


3B0C 


00760 




JR 


C.CONT 




430E 


FE4I 


00770 




CP 


■A ■ 




4310 


DAt244 


□ □78^ 




JP 


C,ERRO 




4313 


FE47 


□0790 




CP 


'F 'tl 




4315 


D21244 


OOBOO 




JP 


NC,EHRO 




431G 


0607 


OOBiO 




SUB 


'A'-'9'-l 




431A 


D630 


00820 


CONT 


SUB 


•0' 




'13IC 


C5 


□0830 




PUSH 


BC 




431D 


04^04 


O0B4O 




I D 


B.4 


;Mul1- ipl icar por 16 


43iF 


07 


00850 


MLTPL 


RLCA 






43^0 


lOFD 


00860 




PJN7 


MLTPL 




4322 


0604 


00670 




LD 


6,4 




4324 


07 


OOBBO 


RODA 


RLCA 




jTransferir para DE 


4325 


CB13 


00990 




RL 


E 




4327 


CB12 


00900 




HL 


D 




4329 


1QF9 


00910 




DJNZ 


ROOA 




432B 


CI 


□ 0920 




POP 


BC 




432C 


3ED3 


00930 




LD 


A. 3 




452E 


B9 


□0940 




CP 


C 


; Tcr m i nou argument o? 


432F 


30CB 


00950 




JR 


NC, LEHEX 


;Nao. Ler o'jir o caract er 


433i 


D5 


00960 


GUAR DA 


PUSH 


DE 


jSim. Guardar argumento 


4332 


04 


□0970 




INC 


B 
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Aqui estao os passos necess^rios p>ara 
que voce possa localizar um programs 
SYSTEM na m6m6ria do micro: 
. Carregue CNVSYS versao objeto 
(com SYSTEM ou R1 do DIGBUG); 
. Encha a membria, a partir de 442DH, 
com FFH (no DIGBUG, F FF 442D 
FFFF para 48kb ou F FF 442D 
7FFF para 16 kb); 
. Carregue o programa a ser gravado 
(SYSTEM ou R1); 
. Examine a mem6ria, a partir de 
442DH, e anote os endere^os onde os 
FF desapsrecem (inTcio) e reaparecem 
(fiml. Useo comando O do DIGBUG 
da seguinte forma: D 442D FFFF 
para 48 kb ou D 4420 7FFF para 
16 kb; 

. endereco de origem (ponto de 
entreda) pode ser obtido diretamente 
se o programa for carregado com R 1 . 
Caso voce utilize o SYSTEM ou mesmo 
tenha esquecido de anotar no R1 , o 
ponto de entrada pode ser obtido a 
partir das posi(:des 40DFH (byte 
menos significativo) e 40E0H (byte 
mais significativo), utilizando o 
DIGBUG da seguinte forma: 
D 400 F 40 EO. 




|A-B-C um programa QUE; 

n COMPATfVEL COM A LINHA IBM-PC 

LJescreve e imprime em portuguEs 
DfAcildeaprender 

MTODAS AS RESPOSTAS ACIMA 
E MUITAS OUTRAS 



PC SOFTWARE E CONSULTORIA LTDA 

Almtp BiiffOKO, n 91 gr 1102 P J 

Tfb. (0311 220-5371 e 263 6553 

CONTATOS A8ERTOS PARA REPRESENTANTES 



LIVROS DE INFORMATICA 



UHPORTADOS 

01 - ffV^ Gmphics GvTiet, - CcMa 74.750 

02 - Guide ToUwng Lotui 1.2.3 - Bn 6B.OO0' 

03 Tf» Cnatrut T RS 80 Maiul WO-OOO 

O* ThvAf^apTu^im Factory - Staturt 6&OO0] 

06 - Uni^dBas* 11 - TownMid 9B.0OO. 

06 - AppliBl Concatin in MiCTaC(VTi(iu» Gi«hia - ftiiwiil . l47iXX>. 

07 - Otooii'^ J WndPiocnacH - Good G&OOO 

OB - «A*ii.f^ iha MdU oI Youf ZXSl Hamall 54 000. 

OS - MadvinaLjoguagaPiD^aninane Mad* Salvia For row 

S'nclw & TmiD, TSfOOO - M«l»»». i SO.OOO. 

10 - IktBiSf inq UKhin* Cod! On Your Taim Sindvr 

1500/1000 Bifcar 4a000 

1 1 ' PiDWnnNi'i GuHta To CP/M - LAb S^OOD 

12 Kidt & Tha Apola - CwIior , SI.OOo' 

■ 3 ~ StnwiurM) Anatyiii ANDSyimSiiMificirtan - 

T. Dafnatu SOaOOO. 

14 - Ptoyarrunng m Ad* - Wanai 147.000. 

15 - AduancM Cobol Kjumiei,Pn4«pBkil. ITXOOo! 

16 Guidv to SviiBfTm AppJi^itoni - Intiq A jncn <o 

Uioocomijutan - CiiUo. B&OOO. 

17 - flaai Mmai^n iHaPanonal CompvO^ IIBH PClMng 

ftwA^iMl 8B-200. 

19 - EiVunarq Your Appla II - Lancaalai lO&SaO. 

30 - PrH^ammina »ia Apo^a 1 1 m Bauc TMba BX30o'. 

31 - I ntafmafkaia L •■> ^ A|ip<a 1 1 HantCiooli - rtailiiii . . . 90.000. 

33 ~l>Ta^vnmng T<ii and Tgcriniquas for TiM Anata II and 

»»C*nptiall 87.90O 

23 - Advancad dBn* II - LfMr'iGuKla - Cfaan t43.000l 

34 ~FoundaiK«*olPrografTunn9WtihPaa(~Maea« IH.JOO. 

35 -WnWVcui OHnApp»*Gamas- Arm* B4.rM0. 

NACIONAIS 

3E - dB/II Sntafna Raiacnnal p/Garancanwmo da Banca 

<k Oadoa - CP/M Aj»inMi - 3 VohjnM ICartaia/Btoko/ 

A»w<«tol TflO.000. 

37 - CPfU GuiadoliiutrKi' - HogM 15l9ID. 

S - Jogo* • PiognniB an Baic - Aiirtiaa 9LQtX1 

39-Viaaic - Gus do Uwino - CaattaaTia. 13.9Doi 

30 - Maiiilaa ip - P i a— i w • Fmuco da IntannMks - JviMa 

MaiiHi saooo. 

31 - W uHfct^ OManual dD Tfi n amai nu l BBJXX). 

33 - Infonv OWanuit da Ratatkna do Ubi*io>. S&OOO. 

33 - Cafcaw (ManuU do U'a>^nt S6.0O0. 

34 - Tacnoio^ia iLi intafmai(&> - Esum !9l9IX) 

36 - PograinacJCD B«x: Magri iConwKks BtBco^Ammifmk*) 

An^nm - P'oyacnacSa EitniBHHta) )3J)00. 

3B - Saranwi A VickaaaaM* - Taona • li>a«itanc<a - 

McGmty 17900. 

37 - LKando Ui y iaf m da Miquina ~ Afticac^o am f —iiilfi 

ZSO - Setiartfw . 1 1.800. 

38 - 1001 Mflkcaftm p/au Comtutadoc Pasoal - SvwumIi . . . 14.500. 
3a - ApDif II - OuH do UKiMto - Pooia 2a900. 

40 -OManual do CPM Inetuindo MP/M - Zata _ 16.3O0. 

41 - L-r^ag/Bn Sane Mntuwfca 15.800. 

43 ~P*«»iiB Op*<xionat - am E f^^ntiMta, EcononiM a 

Adminioacfo - UodilD> BiuoM • IWtortoi ConfMnaao- 

n*B - Siwnau 31.100. 

43 - Apianda Paical -- no *au Microconi(iuadi]r - Riann. . . . I&OOO 

44 - 60 Jo9ot alo ZX Soanrum - HvmDd 1^000, 

45 - 30 Pioqraitiat afn Baico/CompuDdomPangaic — Oiana 16.900. 
MK- M^muiii du ZX Spacirum - Simiaon 15.000. 

iHt- imraxifMo a Lmgna^an Biaic p/Micmavnpumtans - 

"j^'Ladamwi 17,000. 

-d(-:^UtandD n CP/M - anaano prog a n ii o - FMnatdo. ..... 13^300, 

Jh-- ftoV^xliCAa Enruajraite an Cabo< — FunadD IZOOO. 

5V~TtcniCH*PTtftic«daPiDVsnac«D- CtiantiK aSOO. 

51 - Contnua o lau Priipiio Cotnpuiadot - U^ndoa MP-Z80 - 

C«rc» 23300. 

53 - Aplicacaat da Mocro uniaaJum - Kuadtan 17500. 

53 -PrownsKlDoZ-SD-OlHan 13.500. 

54 -RPG II - Pwaaa Ftlto. 71JXO. 

66 - MvtDtkilogu p/AnMaa - PiotaiD di SHtamaa - Itoiin . . 160000. 

56 - Mtoaixocrateia Z 80 IHsdHVtl - CMpfwn 6.500. 

57 - Uanjti d> Bbk lUBacimM Coni(vtiwaa corn oAppla II - 

Ptckham 13.900, 

58 -MicracixnoutadDr no Conaulrtoo MfciiCQ - Wmciumhiu . . 14.000. 

56 -MamaldaCotialEitiuiurKlD- McCracMn 349O0. 

60-GPSS- UodM^am a SanulaC«o cb SinaiTM - Sinck . . . 10400. 
61 -- ProgracTus Uiuaa am Bale p/Smamaa ComiMtivaiB oont o 

Apoia II Pool. _ _ 13.000. 

S3 - Fundamamo* da Procaaaamanto de Dadai - Pnc* a900. 

63 - Pi oy it Lhuaa am Elaic p/Sinamai CofncMiw*! mm a 

TRS80 - Pocila . 12.000. 

64 - imrnkjffe aat Microcampundiirai. Vol. 1 - Oftoma . . . 13.500. 
eS - Pmiaio tte Banco da OadM ~ faorvy S&OOO. 

66 - lniioduc&> »• MicrocximpuTadam. VoL - OAonm . . . 13.500. 

67 - B»»tt BiiiCD Paiaira . 9.800. 

68 - Piogramaiifc Linaar - HaOKfy 14.000. 

69 - Oocumniitio da Sof Txiara ~ Lomax , 6700, 

70 ~ Intioi^^a Ikanada 'CompuD^jD (com nuito huma-l 

Gonck 7.aeo. 

71 - Ingltt p»a Procanwiiamo d« DaOw (Tarnoa tobta compi- 

a^Ma - Exaici'oo d* comptaaniio - Sif^ia, itoaw^cdai 

* ifoMtno da mmoa. ukhd «n PDI Gatann. 7.500. 

73 - Elabwacfc AnMiaa a RaCKmaloacfc da FormiMriaa — 

PadrcKL . iflOO. 

73 - Pro^atnacio com BoHc 1376 probiuim i«olvKkB39 

Qror*naitan(ittat) GottUita ... . . t3.M)0. 

74 - MmapmcaaHdoKH e MciDComputadoi«i Har A —a a 

SaflMxr Toeo 17.000. 

75 - Mc'Dcxxniadai ZflO. Vo< 3 - Cypnano 14.000. 

76 - McfocHDcraHHoi Z'80. Vol 1 - Cypowto 121100. 

77 - P'ocBHanwntu IntaiariM) a Linviaqan ck Pr ugm i ^fc 

APL Zarnt«m»on . IB.300, 

78 - MuiacamuuiaUm > MinMaJcutadorai - Sau Ummtt 

Cttncim • £ nganhaiM - Claudn 33400. 

79 - lntroAiC&>iCi*nc>adaComputac&i - Cuimaraa 8-4O0. 

50 - FunOvTwnioa da PioccnarrvniD da Dadoi - Ran lO.OOO, 

51 - Pio^MnKlo CoDot ejstas . 1^500, 

83 - BSK ApiicKSct Ca^tmam^ - Bori^i 9.900, 
S3 Aplcacfcido Convulidar luMnAona Kamtn ..... 13900. 

84 - Uoonaiio lnie9iddo d* InfoiinMica tngfti/PDrtvvita/lnglai 

G^rtvu . , . 7 000. 
B5 lnf(Dduc*ii AicajiieiuiaaOfmifacdadaCanitiutaAiim - 

Co..n 24900. 

ee UicraPTocSMricHndr I6B.I1 T.iul 28 500. 

87 Inua^do jSiMtmiO. ttrHjntaitIr Uaiii- [)jlr ?9 000 



LIVRARIA SISTEMA 

a. Sac Lu..- ta^ ■Sobr^ioiJi-GJLE" iA'-'eTsOPO^€ 

Tsit !0n. 3S9-'503 25761 ig 

01O46 - SfaOauio - S" 

*Tl\t*M()S PI'K KtlMBoLSli P"SI Vt 



GRAyANDO EM 500 BPS 



4333 


3E02 


00980 




LD 


A, 2 




4335 


B8 


009V0 




CP 


8 


;Leu 3 arguMentos? 


A32A. 


3S0E 


01000 




JR 


C.GRAUA 


•Sib. Gravar. 


4338 


28 


01010 




DEC 


HL 




4339 


07 


01020 




RST 


lOH 




433A 


FE2C 


01030 




CP 


\ ' 




433C 


2BB6 


01040 




JR 


Z,LEAIt6 




433E 


07 


OlOSO 




RET 


IDH 


;ProxiM> caracter 


433F 


FE2C 


01060 




CP 


' , ' 


-e ' vi rgula7 


4341 


C21244 


01070 




JP 


NZ.FRRO 


•Nbo- Hauve erro 


4344 


18AE 


01080 




JR 


LEARG 


;Ler prax iao argument o 


4346 


3E0I 


01090 


GRAVA 


LO 


*.l 


•Gravacaa do pro^rawa 


434« 


con 02 


01 100 




CALL 


LIGA 


;Ligar □ gravador 


434B 


F3 


OHIO 




01 






434C 


AF 


01120 




XOK 


A 




4340 


47 


01130 




LD 


8, A 




434E 


C0D543 


01140 


GR5IHC 


CAtL 


GR500 


;6ravar o cabccalho 


4351 


lOFB 


OilSO 




DJWZ 


GRSINC 




43S3 


3EA5 


01160 




LD 


A.OASH 




4355 


C00S43 


01170 




CAUL 


GR500 




4358 


3E55 


DliBO 




LO 


A, 'U' 


;Gravar )n<]icailor pro^ra- 


435A 


C00543 


0il9O 




CAt-L 


00500 


;Ba SYSTEM 


4350 


Fl 


01200 




POP 


AF 




435E 


CI 


01210 




POP 


BC 




435F 


01 


01220 




POP 


DE 




4360 


Ei 


01230 




POP 


HL 


[Recttpcrar endcreco SAVE 


43&1 


F5 


01240 




PUSH 


AF 




4362 


CS 


01250 




PUSH 


BC 




43&3 


D5 


01260 




PUSH 


DE 




436.4 


07 


01270 




RST 


tOH 


tPular SAVE 


4365 


0606 


012BO 




LD 


B.6 




4367 


07 


01290 


OTHCAR 


RST 


lOH 


;Ler t itulo 


4368 


FE2C 


01300 




CP 


', * 


; Tpr ■ ■ nou t i t ti I □? 


436A 


2807 


01310 




JR 


Z.FIMTIT 


;SiB. 


436C 


CDDS43 


01320 




CALL 


GR500 


rSrawar t itulo 


436F 


10F6 


01330 




DJNZ 


OTRCAR 




4371 


laoc 


01340 




JR 


CONTGR 




4373 


3E06 


01350 


FIHTIT 


LD 


A, 6 


-Calcular nua caractvres 


4375 


OS 


01360 




DEC 


B 


^faltaraB para 6 


4376 


90 


01370 




sue 


B 




4377 


47 


01380 




LD 


B,A 




4378 


3E20 


013?i) 




LD 


f*. ' ' 




437A 


C0D543 


D1400 


ENCHE 


CALL 


GR500 




4370 


tore 


01410 




DJNZ 


ENCHE 




437F 


3E3C 


01420 


CDMTGR 


LD 


A,3CH 


;Tera inar t i tulo 


4381 


CD0543 


0143O 




CALL 


GRSOO 




4384 


01 


01440 




POP 


DE 


;Obtcr trnOereco inic ial 


4385 


El 


01450 




POP 


HL 


;c final 


4386 


AF 


D1460 




XOfi 


A 




4387 


ED52 


01470 




sec 


HL.DE 


• Final aienor? 


4389 


0A1244 


01480 




JP 


C.EHRO 


;S(B- Houve err a. 


43aC 


EB 


01490 




EX 


DE,HL 




43B0 


IC 


0150O 




IMC 


E 


fE^nuM de ti>|tes ult bloco 


43eE 


BA 


01510 


GRBLOC 


CP 





[0=nuH de blocos 


43aF 


2001 


0152O 




JR 


NZ.GRHORM 


lUlt >Bo bloco? 


4391 


7B 


01530 




LD 


A.E 


;Sia. Cravar E btjt es 


4392 


F5 


01540 


GRHOIlh 


PUSH 


AF 


;Nao- Gravar 2S6 bt|tes 


4393 


CD0543 


01550 




CALL 


GRSOO 




4396 


OEOO 


01560 




LD 


C.O 


;Z«rar check b«)tc 


4398 


70 


0157O 




LD 


A,L 


(Gravar endcr«co in ic ial 


4399 


C0D543 


01580 




CALL 


GR500 


;do bloco 


439C 


81 


01590 




ADD 


A,C 


:AtuaIizar check b<)tc 


4390 


4F 


01600 




LD 


C,A 




439E 


7C 


01610 




LD 


A,H 




439F 


CDD543 


01620 




CALL 


GRSOO 




43AZ 


81 


0163O 




AOD 


A,C 




43A3 


4F 


01640 




LO 


C.A 




43A4 


Fl 


01650 




POP 


AF 




43A5 


47 


01660 




LD 


B.A 




43flA 


7E 


01670 


GRBYTE 


LD 


A , ( HL ) 


gGravar bytes da t ext o 


43A7 


C00543 


01680 




CALL 


GRSOO 




43AA 


81 


01690 




AOD 


A,C 


;Atu»lizar chrck byte 


43AB 


4F 


01700 




LO 


C,A 




43AC 


23 


01710 




INC 


HL 




4 3 AD 


10F7 


01720 




DJNZ 


GRBYTE 




43AF 


79 


01730 




LD 


A.C 


;Gravar check byte 


4380 


C00543 


0174D 




CALL 


GR50O 




43B3 


AF 


01750 




XOR 


A 




43B4 


BA 


01760 




CP 


D 


lUIt iMO bloco? 


4385 


2809 


01770 




JR 


Z.TEHHGR 


;5ia. Terainar 


43B7 


3E3C 


01780 




LO 


A,3CH 


;Nao. Gravar mdicador 


438 9 


CD0543 


01790 




CALL 


GR50a 


;de ria de bloco 


43BC 


15 


01800 




DEC 


D 


jDecreavntar cont bloco* 


43HD 


AF 


01810 




XOR 


A 




43aE 


18CE 


01820 




JR 


GRBLOC 


;Grawar proxisa bloco 


43C0 


3E78 


01830 


TERH6R 


LO 


A,7eH 


-Gravar ihdtcador final 


43C2 


CDDS43 


01840 




CALL 


GB500 


;de pro5raaa 


43C5 


El 


oieso 




POP 


HL 


;Obter endereco entrada 


43C6 


70 


01860 




LD 


A,L 


re grav»-lo 


43C7 


CD0543 


01B70 




CALL 


GR500 




43CA 


7C 


□leso 




LD 


A,H 




43Ce 


C00543 


01B9O 




CALL 


GR50a 




43CE 


CDFBOl 


01900 




CALL 


OESLIG 


fDesligar o gravador 


43D1 


FB 


01910 




EI 






43D2 


C3191A 


01920 
0193D 




JP 


BASIC 


gVoltar ao BASIC 





01940 


; Subrot ina que 


grava a byte contido no acu»ulador eai 




0195O 


; 500 


bps. <Obt 


Ida do prograaa CONVBAS da Digitus). 




01960 










4a>S E5 


01970 


GR500 


PUSH 


HL 


;Guardar os r«aistros 


4306 C5 


019BO 




PUSH 


BC 




43D7 D5 


01990 




PUSH 


DC 




4308 F5 


02000 




PUSH 


AF 




4309 0EO8 


02010 




LD 


C,8 


;C= contador de bits 


43DB 57 


02020 




LO 


D,A 


-0= byte a ser yravado 


430C CDF443 


02030 


OTRBIT CALL 


GRVUH 


;Gravar o clocli 


430F CB02 


D2D40 




RLC 


D 


•ProxiBO bit? 


43ei 300B 


o;'Q*in 




M 


MC. GRZERO 


jE ' zero. 


4:k:3 CDF443 


O2060 




CALL 


GRVUH 


;£' urn. 


43E6 OD 


02070 


ATCONT DEC 


C 


;Oecre«entar o contador 


43E7 20F3 


O2O80 




JR 


NZ, OTRBIT 


;Passar ao prox. byte 


43E9 Fl 


02O9O 




POP 


AF 


;Recaperar os rcyistros 


4:ka D1 


02100 




POP 


DE 




43EB CI 


02110 




POP 


BC 




43EC El 


02120 




POP 


HL 




43e0 C9 


02130 




RET 




;Ter«inou gravacao byte 


43EE 0660 


02140 


GRZERO LD 


B.OBDH 


;Gravacao de zero 


43F0 lOFE 


O2150 


LOOPl 


DJNZ 


LOOPl 


;espaco vazio 


43F2 ieF2 


02160 




JR 


ATCONT 




43F4 2101FC 


021 70 


GSVUH 


LD 


HL,OFC01H 


;Gravacaa urn 


43F7 CD21D2 


02180 




CALL 


5AIBIT 


-Sai nivel 1 


43FA 0612 


02190 




LD 


8,12H 




43FC lOFE 


O22O0 


LOOP2 


DJNZ 


LOOP 2 


• intervalo 


4M^E 2102FC 


02210 




LD 


HL,0FC02H 




4401 CD2102 


02220 




CAUL 


SAIBIT 


;Sai nivel 2 


44D4 0612 


02230 




LD 


B.12H 




4406 lOFE 


02240 


LOOP3 


DJNZ 


L00f3 


] intervalo 


4408 20 


022S0 




DEC 


L 


;Zera nivel saida 


4409 2fl 


O22&0 




DEC 


HL 




440A C02102 


02270 




CALL 


SAIBIT 


;5at nivel zero 


4400 o«e5 


02280 




LO 


B.BSH 


;Espaco vazto 


440F lOFE 


02290 


LO0P4 


DJNZ 


LOOP 4 




44il C9 


02300 
02310 


J 


RET 








02320 


7 Hensagea de erro 






0Z330 


; 








4412 coFeoi 


02340 


EURO 


CALL 


OESLIG 


{Oeslisa o sravador 


4415 FS 


02350 




EI 






4416 212544 


02360 




LD 


^.HSGER 




4419 7E 


02370 


ESCtt 


LD 


A,(HL) 


;Le aensasea 


441A FEOO 


02380 




CP 





iTerainou? 


441C CAI91A 


02390 




JP 


Z.BASIC 


;Sia. Ualtar ao flASIC 


44 IF i:033O0 


02400 




CALL 


OISPL 


;Naa. E&crever na tela 


4422 23 


02410 




INC 


HL 




4423 18F4 


02420 




JR 


escR 




4425 45 


0243D 


HSCER 


DEFH 


■ERRO 




4429 OAOO 


O2440 




OEFU 


DOOAH 




442B OOOO 


02450 


FINAL 


DEFU 


OOOOH 


;Ind<cador para o BASIC 


42E9 


02460 




END 


CNVSYS 




UUOOO TOTAL 


ERRORS 










290S9 TEXT 


MEA BYTES LEFT 






ATCMT 43e6 


D2O70 


021 60 








BASIC 1A19 


0O390 


01920 


02390 






GNUS Y 5 42E9 


oosao 


D0530 


02460 






CONT 431A 


OO820 


00760 








C0NT6R 437F 


01420 


01340 








OESLIG 01F8 


004 30 


01900 


02340 






Dia*L 0033 


O0410 


02400 








ENCHE 437A 


014O0 


01410 








ERRO 4412 


02340 


OO740 


00780 OOSOO 01070 01480 




eSCR 4419 


02370 


02420 








FIHTIT 4373 


013SO 


01310 








FINAL 4429 


02450 


00490 


00510 






B9500 4305 


01970 


01140 


01170 01190 01320 014OO 


01430 01^» 






01580 


01620 01i80 01740 0179O 


01640 01870 






0189O 








GRAVA 4346 


01090 


OlOOO 








GRBLOC 4JUt 


otsio 


01820 








GRBYTE 43A6 


01670 


01720 








GRHORM 4392 


01540 


0152O 








GRSINC 434E 


01140 


01150 








GRUUH 43F4 


02170 


osoao 


02060 






NZERO 43EE 


02140 


02O5D 








GUARDA 4331 


00960 


0O670 


00690 00710 




LEARG 42F4 


0064O 


01040 


01080 






LEKX 42F9 


00660 


0O9K) 








LIGA 0211 


0O420 


OilCH} 








LOOPl 43F0 


02150 


02150 








L0OP2 43FC 


02200 


02200 








L0OP3 4406 


02240 


02240 








L0OP4 440F 


02290 


02290 




■■^^ite— ~ 




NLTPL 431F 


008SO 


00660 








nSGFR 4425 


0243O 


0236O 








OTRBIT 43DC 


02030 


02080 




■■ . 




IS CAR 4367 


01290 


01330 




'^ 




P0S8SC 40E6 


00440 


00580 








PRXCAR 42E0 


00600 


00620 








RODA 4324 


00880 


OO910 








5AIBIT D221 


O04O0 


02180 


02220 O3270 




TEHUGR 43C0 


01B30 


01770 






s 



MICRO SISTEMAS. novembro;84 



MICRO SISTEMAS. fxivembro/84 



miKi^cs NH envrriMKS 

Uoce noo pode deixar de possw 
OS seguintes livros: 

MICROKIT 

inm sattun-nn, n, ts, ckm e mtms 





enSI K MSK - flU CrMl>^.3.^^ 

Teoru), exeaplos e exerdaos resolvidos, 
explOMidDS M 18 aulas, oferecendo uHobor- 
do9eB siftples e direta. i'\m hvro (^tico. 

NISI IE NStt - WL2 CrI n3^%M 
ProsroMcSo ovoKodo 

C«pleKi)ta livro (amtso de Bosk - VqU 
e osiH COM (tesproteger ptoqtamas da linho 
SiKlOBTi coprar fitos e cmo usor o Hi-speed 
M TKB5 e CP2M. 

mill mu • enmTivaseiH »mmmt 




77 NNMmS nn LIMU WfU Crf 1^ 299M 
AtrovK de JOGOS e PROGRAMS EfiUCATtUOS 
voce sero induztdo a pensor, resoltfw proble- 
AQSj e toMT coAhecikHito de cow podera' 
usw ba coiputodor, diyertpftdo-se' 

HiniiiiT ctHcraus N LMI »Ht 



Para Pequoo-Eipresa 

Troz listogei ctwpleta 
cofto-- Hola-direta, Controle 
Coatos receber e a pogor. 
ogorai 



dos progrowis 
de estoque e 
FocQ seu pedido 



ITEM^I: escolha oqu sua opcoo: ^ | 

nCurso de Basic -Itol.Ccurso de Bosic-UoL2 . 
Q77 ProgroMs QPrograws ComtooIs 



HOH. 



Cw- 



-CkMe. 



Xstodo. 



Envie ui cheque bomaqI pva ATI Editora Uda. I 
Av. Presidette ttison, 165 grupo 1216/1216 
Cep2m% - Rio de Janeiro - K.J ■ 



Cheque— 



Boko. 



.-H»dor. 



<ii i n c: 1 iA i r s i ii c: 'i a i r !;; i i^ c: 1 a i i'" s i ri c: . 



INFORMACOES OtEIS PARA QUEM TEM, OU NAO TEM O MICRO 



i REM 

2 RI-'M 

3 Ri-:h- 

4 REM 

!::i ri::m 

6 REM 

7 REM 

B REM 

9 REM 



■■■ir ■ ¥-^ riA. 't-j 11^:: :!;;:j Ei. i: rf^ 



Si.) 1 V i o Amami'VI Br a^ja 
s a. s c c) -■ S P 



objetivo deste jogo e levar o mdvel O iU a direita da tela, Todas as instru?6es necessdrias estao na pr6pria lista^m. 

atravessando uma das pontes. Seria fddl se o micro nSo tentas- Ao digitd-la, utilize SHIFT H em modo grafico na linha 20 e, 

se Impedir a travessia colocando obsticulos para evitar a passa- na linha 57, use os caracteres em modo gr^co (inverse). Cui- 

gem. Uma dica para voce conseguii dai o drible ^ jogar o mdvel dado apenas com o ponto e virgula da linha 220 - sem ele o 

para a direita o mais r^pido possi'vel. programa nSo roda. 





-Fh =- . ■ 'J 10 hMhURY tKfiQR 




510 


PRINT RT 21 , Y-RERDEU" 


■~- 


F0K5 16510:0 




■d 3 


= n P t^l = 1 T ": ;=; e 


-■ 


;505uE ^00 




540 


NEXT -a 


=; 


DIM H •.20i 




5-'0 


■- i_ ■-' 


10 


FOR 1=1 TO 60S 




-.■t0 


FUN 5 


20 


!=^RINT '-M' ■ 




600 


PRINT RT 21 ,0; "GRNHOU" 


30 


NEXT I 




610 


FOR y=l TO 60 


40 


FOR 1=0 TO 16 STER 3 




620 


NEXT :..i 


50 


c-RINT hT I ,20; " " : 




630 


CL3 


cc 


PCINT ^T 2 , 1 ; "TRRUE5:5Ifl" 




640 


HUN 5 


56 

cr-7 


^KlNT RT 2 : li -■ 




700 

710 


PRINT , . , , ^'TRHUE55Ifl" 

R R INT ,...:." 'J . D E U ERR C U D 'J Z 


DDTr-JT RT - , 1 ; ltZlZlV^f=t=<P^l\ 


60 


NFXT T 




IR" 




F.F, 


FOR i-) = l TO 100 




720 


c P INT ■■ MO'-.'EL " "0 " " RTkR'-'E 


66 


MFXT 1.-1 




5 DR-: 


■^ R0NTF5 ■ 


150 


i_£T T=:3 




730 


PRINT -'EH ERRNCO DR DIREI^h 


190 


' FT V=:-; 




" 




- QF 


"T X=INT iRND*lSi -1-1 




740 


FRINT MICRO TENThRRH' 


■" QF- 


PRINT hT X .20; " " 




750 


c- P I r-JT --Bu Q U E R R D E R R U 5 R N D ' ' 


■! q-" 


ucT H i. X.I =2 




7 60 


"PRINT ■ R6 PONTES" 


200 


^ET Y=Y- (IHKEY$ = "6" RND Y 


. X 


770 


FRINT , . , . 'UTILIZE h5 TEClR 


■=; "! _ ; 


:nKEY$ = "'^" RND Y >0i 




■-, " 




210 


^FT ^=T-i- i INKEY$ = "S" RND T 


• 'o 


730 


PRINT -'d . 7 , 6 . E 5 RRRR ■ 


1 "t - i 


IN!-:..Ey$='5" RND T>3J 




790 


PRINT "MOUER MOUEL ■■■■Q""" 


220 


C'RINT hT r-' ,T: 




600 


FOR U=l TO 300 


-30 


=-RINT ; ■■Q" 




310 


NEXT W 




IF T=20 THFN GdTO 500 




520 


'_■ L P 


250 


GOTO 195 




330 


RETURN 


500 


IF RfVi .:2 THEN GOTO 600 









Travessia 






• Para a linha Stnctair, um compilador Forth para voc§ usar (e abusar) 

em sua programacSo, e mais o espetacular jogo Space Ghost 

• Arquivos no NEWDOS/80 e tudo sobre o novo DOSPlus 3.5 

• An^lise de (ndicadores economicos, Investimentos e Poupanca 

• E mais a cobertura da Feira Internacional de Informdtica 




A^ilcres faz de sua empresa o seu Show Room 
I 



Especialistas em 





microcomputadores 



levam ate voce toda sua estrutura de Marketing. Conheca 
OS CP300 e CP500 aliados ao alto desempenho da Impressora 



P500 e na configuracao exata do seu problema. 



A Filcres oferece aos seus usuarios assistencia tecnica 




autorizada Prologica 




, completa biblioteca 



de software, diversificada linha de suprimentos, alem de 



e linguagem 



treinamento gratuito de operacao 





Venha ate aqui, ou ligue que iremos ate voce! 



filcres 

FILCRES ELETRONICA ATACADISTA LTDA. 

Rua Aurora. 165 - CEP 01209 - Sao Paulo -SP 
Tels.: 223-1446-220-5794 - 222-3458 
PBX:2237388 




LEVE NOSSO SHOW ROOM P/ SUA CASA! 



9 P P 1 R ^ p p 1 e 3 p p I F ■'^. p p I e s p I-- 1 e if] 



i REM 
2 Rtri 



c:«^x<=*i_ooo r>nr o rsoos; 



3 RFM- 

4 RFri 

5 RFH 
A RFH 
7 FFii 
R RFh 
9 REH 



H^i io H-Lehfji'te 
PoriTi Ale9re - RS 

Ar i I 



Todo aquele que programa h^ algum 
tempo ja deve ter sentido vontade de 
introduzir no catilogo de seus disquetes 
uma marca, rbtulo ou cabe^alho que sir- 
va para identificar o conteudo, a data e, 
principalmente, a autoria dos prc^jamas 
TkcAe contidos. 

O DOS do Apple, porem, nffo apre- 
senta nenhuma facilidade neste sentido. 
O maximo que eie nos pennite fazer e, 
^6s inicializar o disco, giavar alguns 
programas inconsistentes do tipo I MM, 
cujos nomes, no cat^ogo, indiquem os 
dados que queremos transmitir. 

Esta tecnica, entretanto, apresenta 
tantas deficiendas que desestimulam o 
uso da lOtula^So. Podemos citar alguns 
exemplos: os programas gravados no 
disco ocupam um espa^o (no mi'nimo, 
dois setores) que poderia ser usado por 
dados reais; dois arquivos nSo podem ter 
nomes iguais e estes nomes precisam 
obedecer 4 sintaxe que o IX)S aceita, 
sem simbolos ou caracteres de pontua- 
950; o rotulo nSo possui a minima s^u- 
ran9a e pode ser apagado por um sim- 
ples comando DELETE. 

Pensando nisso, percebi o quanto se- 
ria util criar um pro^^ma rotulador que 
superasse estas dificuldades, e aqui apre- 
sento os rcsultados. 

O PROGRAMA 

O problema se resumia em encontrar 
uma maneira de colocar dados no cata- 
logo do disquete sem passar por um co- 
mando SAVE. Para isso, usei uma co- 
nhecida rotina em lingu^em de maqui- 
na, a qua!, por sua vez, acessa outras ro- 
tinas do proprio DOS que, com o auxi- 
lio de algumas linhas BASIC, carrega pa- 
ra a mem6ria do micro os dados conti- 
dos na trilha 1 7 (a trilha 1 7 e' usada pelo 
DOS 33 para guardar o diretorio. 
A»im, esta rotina carrega a triiha. 
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XIST 






10 


HIHEH: 


16384: RntHB B10 




20 


nm : 


DIN fa(50»:tS = CHRS (7) 




30 


HUE : 


PORE 34,5 




40 


PIIKT " 


r- SPC{ 8);"flLTBHCflQ 00 CflTHUKO-; SPC( 9).-r 




50 


raiKT " 


)tNTRQDUZA RS LINHRS EN ORDOT 




60 


wiin " 


)PflRfl ENCERRfS OIGITE 'FIN'-: PRINT 




70 


m = 


1 TO 50 




eo 


PRIHT 


. SPC( < 10);->"; 




W 


littSIB 640 




100 


IF n 


= TIN" THEN 120 




110 


PRINT 


:RS(0) = XS: NEXT 




120)6 = 


- 1 




130 


ptiin 


: PRINT BSiBSr^flLTFRa RLGUffi LIIHR? ';: GET XS: 


PRINT XS 


140 


IF RSC (H) < ) 83 no 170 




150 


IVUT 


■>8UflL NUftRO? ";0: PRINT 0; SPC( ( IO)-")";: 


GOSUB 640 


1M RS(Q) = 


Xt: 80T0 130 




170 


F(K Q 


= 1 TO NS: IF LEN (RS(0)) = 30 T«N 190 




180 


FOR N 


= LEN (ftt(Ol) TO 30:ftS(0) = RS(0) ♦ * ": IBCT 




190 


KXT 






200 


POKE 34.0: HOC 




210 


HXIt 


= 1 TO NS: PRINT - S 000 ":flS{ll): IF N / 22 = INT (N / 22) 1 


TIB 


PtlNT 


■>CR PflRfl COHTlNUflR ;•■ GET X$: HOTE 




220 


NEXT 






230 


PtlNT -Fin (C») ".: SET XI 




240 


HOC : 


PRINT -)minaiE o disco h ses utesico no- 




250 


PIIHT -WHS 1 E TECLE (CR) ";: SET XS 




260 


PRINT 


: PRINT : PRINT " fllENDW - ESTfl OPERfiCflO DESTRUiRfl" | 


270 


PRINT 


-TODR fl lIFORmCHQ CONTIOfl NO DISOUEIE" 




280 


PRINT 


: PRINT ->CaNTINUn? (S=SIK) ';: GET XS: IF XS < 


) -S- TTO END 


290 


PRINT 


: PRINT : PRINT SPC( 15)--INICia.IZ»l)0" 




300 


PRINT 


: PRINT SPC( 15);"DELETflND0- 




310 


PRINT 


: PRINT SPC( 15);'TRflNi»kRINDQ DHDOS" 




320 


V1RB ^ 


: HTn 14: PRINT "=>■ 




330 


PRINT 


CHRS (4}'INIT XXr 




340 


VIHB 11: Km 14: PRINT -=}- 





350 PRIKT CWS M)"DEinE XXX" 

360 G0SU8 440 

370 PRINT : PRINT B$.B$;B$; SPC( 15);-t FIH «" 

380 PRINT : PRINT "TECL£: DFftZER OUTRO DISCO IGUflL" 

390 PRINT ■ 2)ESCBEra NOVO CHTRLOGQ- 

400 PRINT " 3)EMCERRIW 

410 PRINT ■>OPCftO: %: GET X$: IF XI ( T OR XS > "3" THEN 410 

420 ON Vffl. (XS) GOTO 240,10,430 

430 HONE : PRINT 1 PRINT CJRS (4)"CflTflL0G": END 

440 POiCE 47092,1: GOSUB 570 

450 CH = 1 

460 FOR = 14 TO STEP - 1 

470 RD = 16659 + (256 t 0) 

4B0 FOR N = TO 6 

490 IF CN } NS THEN 560 

500 X = flD + (N t 35) 

510 X = X ♦ 10 

520 POKE X,35: POKE X + 1,15:X = X + 2: POKE X.B: POKE X ♦ 31,0: P«E X + 32,0 

530 FOR « = 1 TO 30:X = X t 1: POKE X, flSC ( HIOS (aS(CNJ,fl,l)) ^ 128: NEXT N 

540 CN = CN ♦ 1 

550 NEXT : NEXT 

Urm 13: HTffl 14: PRINT ■=>": P(KE 47092,2 

POKE 47083,0 

FOR SE = TO 15 

POKE 47082,1: POKE 47084,17: PKE 47088,18 

POKE 47085,SE: POKE 47089,SE * 64 

CflU. 769: IF PEEK (768) < > THEN 630 



560 
570 
580 
590 
600 
610 
620 
630 
640 



NEXT : RETURN 

PRINT SPC( 14);"-- ERRO -": GOTO 370 

FOR N = 4T033: PRINT ".■;: NEXT 
650 LE = 29:XS = "":IL = 
660 HTflB XL i 4: PRINT ■.■; 
670 HTffl KL * 4 
680 GET YS:flC = RSC (YD 
690 IF flC = 13 OR flC = 8 OR flC = 32 GOTO 700 
700 IF flC = 13 THEN RETURN 
710 IF flC = 8 TltN 760 
720 KTflB KL ♦ 4: PRINT Y$; 
730 IF l£ = KL - 1 THEN 660 
740 XS = XS + t$:KL = KL + 1 
750 GOTO 660 

760 HTflB 4 ♦ IL: PRINT "."; 
770 IF KL ( = 1 THEN XS = ":KL = 0: GOTO 660 
780 KL = KL - 1 
790 XS = LEFTS (XS,KL) 
800 GOTO 660 

810 DflTfl 32,227,3,32,217,3,176,6,169,0.141,0,3,96,169,1,208,248 
820 FOR X = TO 17: REflD T: POKE X + 769,T: KXT : RETURN 
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Catilogo de Discot 



grava sobre ela os dados arbitrarios in- 
troduzidos pelo operador e manda-a de 
volta ao disco. 

Ac ser rodado, o pn^rama move pa- 
ra a memoria os cddigos armazenados 
nas ultimas linhas, solicitando em segui- 
da a introdui^o do texto que fornuu^ o 
cabe^alho do disquete, o qual dever^ ter 

MICRO SISTEMAS, novenibro/S4 



entrc uma e 50 linhas. Esta entrada e 
feita atraves de uma rotina de edi^ao de 
strings situada nas linhas 640 a 8()0. Es- 
ta rotina permite que seja escrita uma U- 
nha de ate 30 caracteres, possuindo al- 
gumas vantagens sobre o comando 
INPUT no que se refere a limitafSo do 
comprimento dos dados digitados e a 
opera^ao das setas de corre^ao. 



s 000 

B 00« 

s 000 

B 000 

s ooo 

8 000 

s 000 

6 000 

S »oo 

s 000 

s 000 

s 000 

s ooo 

s 000 

s 000 

8 000 

s 000 
s 000 

naooe 

R*o 1 a 

HBO 1 2 
1 00-5 

nsoov 

nao04 
T 003 



en un sisTtrm 



I ST ICOS 1 - 

HOTdl TCK>OS OS PBOOORMra 
COHTIDDS MtSTt O I SCO SOO 

i>c PBOPR 1 tonoe t>a nuro m, g 

sun COP ■ R 5e« f»u T o« I z»»c»*0 

E lO-tf»L«EMTt FBOieiOn 



RED ins en GCilf*. 1 

HE Dins EH OEJina. 2 
nMHt I SE i>e •.•nsinHcm 

doBBEi-nfinu i.iMCrM' 

GERnOOB Ot. aHHCOS DE f>nc>[is 

onoos c:c>AREi_nono i 

HMOL tSE ('RTOSIfU. n ■ S 

r>Esu I □ pnOHHO 

DRDOS COdftEI-ttCnO 2 



Figum I 



As linhas que compOem o texio po- 
dem ser escritas e ediiadas a vontade. lo- 
mando-se apenas o cuidado de encerra- 
las com um CR. Ao final de cada uma, o 
compulador solicitaii a seguinte, encer- 
rando a edifSo quando receber uma li- 
nha conlendo a palavra FIM. A seguir, 
pei^ntari se todas elas foram introdu- 
zidas corretamente e, em caso n^ati- 
vo. pedira o nurrwro da linha a ser al- 
terada. 

Assim que tudo estivei certo. o pro- 

p^ma apresenlara na lela uma simuia- 
ijao do que sera o catalogo do disquete 
e aguardaii o aciortamento de alguma 
tecla, inidando a rotina de grava^ao pro- 
priamenie diia. Sera pedida a inser^So 
no drive 1 do disco a ser rotulado e em 
seguida a confirma95o de que a opera- 
(jSo deve ser realizada (o operador seri 
advertido quanto ao faio de que lode o 
conteudo originai do disquete sera des- 
trui'do). 

Ap6s a confinna^So. o asiema pas- 
sar^ a indicar na tela as opera^Oes que 
realiza: inicializa o disquete. deleta a si 
mesmo do diret6rio, processa as infor- 
ma^Oes introduzidas e transfere-as para 
o disco. Por fim, o programa pergunta se 
o operador deseja rotular outios disque- 
tes com o meano ou com outio cabei^- 
Iho, ou se piefere encerrar a execu^. 
caso em que seri executado um CATA- 
LOG demonstrativo. 

Este prt^ama permite total flexibi- 
Udade no que diz re^peito aos tipos de 
rotulcs. Voce poderd digitar iinhas com- 
posias totalmente por asteriscos, linhas 
em branco ou meano duplicadas, sem 
qualquer problema. Veja na figura 1 
um exempio de catilogo. 

Outra vantagem e' que o cabc^alho 
intxoduzido nSo pode ser removido por 
I^LETE e, assim, s6 programadores 
CCTn muito conhecimenio das rotinas do 
DOS (uma minoria) conseguiriam muda- 
lo sem destruir os programas gravados. 

Ressalto, por fim, que o programa 
de&crito e bastante restritivo quanto ao 
hardware, pois os endere^os utilizados 
so sSo validos para os compati'veis com 
o Apple que tenham 48 Kb ou mais de 
memdria e trabalhem com o DOS 33. ^ 
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iHHHHHHHHt J* J* ** i* t* i* ** ^* ^HHHH* W *t ^ : 
*:; i n ':: !. air- si 1 1 c: 1 &. i v s i 1 1 c I a i r s i 1 1 1:: 



1. Ri:,H 

;;. ivf->i 

3 REIh 

4 REM 

:-■; i^i:rh 

7 Ri;:n 

8 RI:-.H 

9 REM 



li::;r H^!' ri-:|i \N\ ...J \f-)» 



Hai c t:! 05- de Al bu'^iiierHue 
Mtune i o ■■ AL. 



Este programa foi feito originalinente 
para processar a contabilidade de uma 
pequena cria^ao de galinhas poedeiras 
num TK82-C. A ideia bdsica, contudo, 
foi transfonnar os dados de receita e des- 
pesa de cruzeiros em ORTN (Obriga^oes 
Reajustdveis do Tesouro Naclonal), para 
o usuario ter uma iddia precisa dos seus 
gastos e lucros, ao longo de um pen'odo, 
em valores atualizados. Com isso, modi- 
Hcando-se algumas especifica9des, essa 
aplica9ao poder^ ser util tamb^m para 
outras atividades. 

programa toma por base a variajao 
mensal do valor das ORTN, armazenan- 
do OS dados (receitas e despesas), nSo 
em cruzeiros, mas em ORTN. Asslm, pa- 
ra se ter uma compara9ao entre o que 
se gastou e o que se faturou ao longo de 
um determinado pen'odo, soma-se os da- 
dos (convertidos em ORTN) e multipli- 
ca-se pelo valor atual da ORTN. 

Ao dar-se entrada nos dados, o pro- 
grama pede a ORTN do mes para que 
possa fazer a conversao. Ao rodar, apare- 
6e o menu (linhas 1800 a 21 10). Deve-se 
escolher a op9ao INI, a fim de que o lo- 
te seja inici^izado, indo o processamen- 
to atd a linha 2120, onde sSo zeradas as 
vari^veis. Em seguida 6 perguntado a 
data de aquisi9ao do primeiro lote, a 
quantidade de pintos adquiridos, o mon- 
tante em dinheiro e o valor da ORTN na 
epoca. 

A op9ao seguinte 6 ACR (acrescenta 
dados), onde o usuario deverd informar 
a data de aquisi9ao de pintos; quanto eles 
custaram, despesas com a ra9ao; quanti- 
dade da ra9ao em quilos; despesas diver- 
sas. como vacinas e mao-de-obra; quan- 
tidade e valor dos ovos vendidos; quan- 
tidade e valor das aves vendidas; quanti- 
dade, se houver, de aves descartadas; e o 
valor da ORTN do mes. 
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Na op93o TAB (obt^m tabela), sur- 
gem no video todos os dados existentes 
na memdria. Na EST (obtem estatfsticas), 
depois do programa pergxmtar o valor 
atual da ORTN e o valor atual unitirio 
da ave, calcula e fornece os seguintes re- 
sultados: niimero atual de aves; niimero 
de aves vendidas; niimero de aves descar- 
tadas; consume de ra9ao por quilo ; quan- 
tidade de ovos vendidos por diizias; qui- 
los de ra9ao consumidos por diizia de 
ovos; despesas com ra9ao; despesas diver- 
sas e totaJ de despesas; receita dos ovos 



e aves vendidas e total de receitas; valor 
do estoque atual; lucro, considerando-o 
como a soma da receita com o estoque, 
subtraidas as despesas; e custo por duzia. 
As demais op95es do menu sao GRA 
(grava em cassete); INS (obt^m instru- 
96es); que mostra o menu; e PAR (para 
o programa). S6 uma observa9ao: na li- 
nha 2125 do programa, foi escolhido o 
valor 20 para a vari^vel U. Para outro 
niimero de meses, deve-se dimensionar 
convenientemente os arrays. 



100 PRINT AT 11,0, "GRflNJfl SflNTR 


1366 


IF L«<>"' THEN LET fliI]=UflL 


THEREZINMfl" 


LS 




110 PRINT . , CONTROLE Di=i PRODUC 


1357 


PRINT fl'Ii 


flO C£ 0U05' 


136S 


IF fl!li=0 THEN GOTO 1375 


115 POUaE 150 


1370 


PRINT "CRt ■'■■ ; 


120 Ffl5T 


1372 


INPUT J 1 1 1 


1050 C-05UB 1300 


1373 


PRINT Ji.Ii , ■' .00- 


1070 FOR J=0 TO 31 


1375 


PRINT "RfiCflO(CRS) ?" ; 


1030 PRINT AT i, J, ■■=■•; 


1330 


INPUT R 1 1 1 


1090 NEXT .J 


1390 


PRINT "CRJ -^niH , ■■.00" 


1100 RETURN 


14.00 


PRINT "RRCflOIKG! ? '■, 


1120 FOR K=0 TO 31 


14.10 


INPUT Kill 


1130 PRINT AT 21 ,K, ■'="; 


14.20 


PRINT Kill 


114.0 NEXT K 


14.30 


PRINT -DESP. DIU. "^ " . 


1150 RETURN 


1440 


INPUT D -1,1 


1165 CL5 


1450 


PRINT "CRS ■■. Ddl . ".OO- 


1170 IF RS^^-INI- THEN GOTO 1520 


1460 


PRINT 'OVOS UENDID05 ? - . 


1190 G05UB 1060 


1470 


INPUT y« 


1210 PRINT ..'DRTfl DE fiOUISlCflO 


1471 


IF ¥t = ' ■ THEN LET K(I)=a 


DO LOTE ■'■■ 


1472 


IF Y%.- ■■■• THEN LET < ' 11 =UflL 


12S0 INPUT ^5 


> S 




1525 PRINT K» 


1430 


PRINT XI It 


1230 PRINT , 'PINTOS flDOUIRIDOS 


14S1 


IF XII) =0 THEN GOTO 1500 


-. .. 


1490 


PRINT "CR* ■'•■. 


124.0 INPUT H 


1491 


INPUT Z 1 I ■ 


1250 PRINT fl, , , 


14 93 


PRINT -CRS ■■ . Zdl . ".SO" 


1251 PRINT CR* ?■■, 


1500 


PRINT ■■RVE5 i,'ENDIDfi5 ? " , 


1252 INPUT URLOR 


1510 


INPUT PS 


1253 PRINT UhLOR 


1515 


IF PS= ■ THEN LET U III =0 


1255 PRINT 'ORTN f- , 


1516 


IF PS ■■■ THEN LET UII)=UflL 


1256 INPUT 01 


P» 




1280 PRINT "CRt '.Ol 


1520 


PRINT U (Ji 


1265 LET URLsUflLOR.'Ol 


1525 


IF '.".11=0 THEN GOTO 1560 


1270 PRINT RT 20,0; "OS DADOS E3T 


1530 


PRINT ■ CRS '' ■■ . 


flO C0RRET05 (S-Ni ■>- 


1540 


INPUT Bil.i 


1230 INPUT OJ 


1550 


PRINT CRS ■■, B (IJ . ■■ .00" 


1290 IF Q$ = "N-' THEN GOTO 1165 


1560 


PRINT "flUES DESCORTfiDflS " ' 


1325 FOR I=C0NT+1 TO U 






1330 CL5 


1570 


INPUT 1$ 


134.0 PRINT ■C'OTfi ->-•■•■ ( i' 


1571 


IF H = "' THEN LET M(I)=0 


I, ■■ 1 - 


1572 


IF IS '■■■■ THEN LET M(Il=UflL 


1350 INPUT OS (11 


1$ 




1360 PRINT 0% llJ 


1530 


PRINT HII» 


1362 PRINT 'PINTOS ihDOUIRIDOS " 


1590 


PRINT 'ORTN T ■■ . 




1600 


INPUT OlII 


1364. INPUT L» 


1605 


PRINT 0(1) 


1365 IF L$="" THEN LET fl ,1 1 ( =0 


1610 


PRINT ■■ESTfiO CORRETOS 05 Dfl 



DOi- 


13. U- 


2637 LET E=D 


1615 


PRUSE 40000 


£640 FOR 1 = 1 ""0 CONT 


1630 


IF INKEyS='N- THEN GOTO 1~6 


2650 LET DE5R=DESR+B Lli /O (I) 







2660 LET KG=KG+K (I) 


1660 


PRINT ■ HfllS DRDOS "iS'Nt ■ 


2670 LET D=D+D lU /Ofl) +J (I) /Oil) 


16""0 


PRU5E 40000 


2630 LET )i=x*X il) 


1690 


LET C0NT=C0NT+1 


2690 LET iJ=U+U II) 


1780 


IF INK.Ev S= N" THEN GOTO 172 


£700 LET mM=RH+M(Ii 







2710 LET i=iD=RD+R lli 


1710 


NEXT I 


2720 LET Z=2 + Z III til 


1720 


PRINT RT £0 ,0, ■'C-IGITE INSTR 


2730 LET B=B+B i I. ,0(li 


UCfiO 




2740 NEfT I 


1730 


G05UB 1110 


2730 LET NRU=R+RD-U-RM 


1740 


INPUT Pi 


£-90 LET ESTO=NRU*UU 


1750 


GOTO 2040 


2300 CLS 


1760 


PRINT RT £0.0. ■■DRDOS ERRRDO 


2305 LET CE=100 


5 '=-ORflM flPflGi=iD05- 


2310 PRINT ■■ + + + + ++C0NTROLE DE PR 


1~70 


PRUSE 200 


ODUCfiO++4+++" 


1790 


GOTO 1330 


2320 PRINT ■' ■■, K$; -R", D 


1300 


REM SUBROTINfl INSTRUCOES 


S ICONTl 


1310 


CLS 


2825 PRINT CONT 


1320 


PRINT TRB 10, -INSTRUCOES 


2326 PRINT 


1330 


b05ue 1060 


2S30 PRINT T^ RTURL DE RUES 


1SS0 


PRINT INI- = INIC 


; NRU 


IP LOTE'' 


2635 PRINT 


1390 


PRINT ., flCR"" = flCRESCEN 


2340 PRINT -t^ RUES UENDIDRS 


Tfl DflC-OS" 


. '.' 


1900 


PRINT TAB"- = OBTEM Tfl 


2345 PRINT 


BELfi 




2350 PRINT "N» RUES DESCRRTRDRS 


1940 


PRINT ,. EST"- = OBTEM E5 


-, RM 


TflTI 


TICRS' 


2360 PRINT -CONSUMO RRCROiKGi 


1960 


PRINT ,, GRR"" = GRflUR EM 


'■ , KG 


K -~ 




2865 PRINT 


1930 


PRINT ,, INS-^ = OBTEM IN 


2670 PRINT ■ 0U05 UENDIDOS - ■' , ( I 


5TRUC0E5" 


NT 1' 12! 1 . "DUZ E '".IX-INT iX/12 


2000 


PRINT ,, PAR" ■ = PRRR P 


' *12i . ■'UD^^ 


ROGRflMfl" 


2675 IF NOT ■. THEN GOTO £890 


2010 


PRINT RT 20,0; -DIGITE IN5TP 


2376 PRINT 


UCflO 




2330 PRINT KG RflCRO.-DUZIfl : ",l 


2020 


GOSUB 1110 


INT < iKG'X' +12*CE) /CE) 


2030 


INPUT R» 


2535 PRINT RT £1,0, "CONT P/CONTI 


£040 


IF R»=^INI' THEN GOTO 2120 


NURR 


204S 


IF R»=-TRS- THEN GOTO 2300 


2690 PRINT - '.URL0RE5 EM CRS RERJ 


2<dse 


IF PS = '^RCR" THEN GOTO 1160 


U5TRD0S CONFOPHE EUOLUCRO MENSAL 


20~0 


IF RS=-EST" THEN GOTO 2490 


DflS ORTN. 1 - 


2030 


IF RJ=GRfl' THEN GOTO 4000 


2595 LET vs=sTRS IINT i(DESR*OU* 


2090 


IF RS="INS' THEN GOTO 1300 


CE' .-CE' 1 


2100 


IF RS='Pflp- THEN GOTO 3930 


2900 PRINT DESP. RfiCRO . " ; TR 


i-110 


GOTO £030 


6 132-LEN XS' . XS 


2125 


LET u=20 


2905 LET XS=3TP$ 1 INT (IIURL+D)* 


2125 


DIM RHji 


OU*CEi /CE) ' 


212- 


DIM -JlU' 


2910 PRINT 'DESP. DIUERSRS ",T 


2130 


D IM I U 1 


RB 132-LEN ■») , XS 


2135 


LET CONT=0 


2915 LET XS=5TR( (INT 1 (DESR+D+U 


2140 


DIM P lU' 


RLi *0U*CE' ■CE) 


2150 


D IH C ; U ^ 


2920 PRINT -TOTAL DESPESfiS " ; TO 


2130 


C IM K i U 1 


B 1 32-LEN XS' , XS 


2190 


D IM D I U 1 


2925 LET XS=STflS i INT i2*CE+0Ui 


2200 


DIM Ds IU,3I 


CE' 


2210 


DIM XlUJ 


2926 PRINT 


22 30 


DIM MlUf 


2930 PRINT "REC. OUOS ".TRB 


2240 


DIM UlU) 


'32-lEN 'Si , XS 


2250 


DIM ZlUI 


2935 ^ET •S=STRS (INT IB*CE*OU'.- 


2260 


DIM B'U' 


CE( 


2290 


GOTO 1160 


2940 PRINT "REC. RUES . " , TR 


23:,0 


Cl5 


B ■ ;2-LEN K%- . X» 


2;ii 


PRINT ■ TRBELfi DE PRO 


2945 IF NOT S AND NOT 2 THEN RRI 


[■iJCfiO" 


NT -TQTRL RECEITAS 0. 


2315 


GOSUB 1060 


00 ' 


2320 


PRINT 'hOUIS. ".KS.R.^' pint 


2946 IF NOT B RND NOT Z THEN GOT 


OS " 




2960 


£325 


PRINT "CP» ■■ . URLOH . -'ORTN- 


2947 LET »S=5TRS 'INT iiZ+B)*CE* 


- 01 




OU' 'CE' 


2327 


FOP 1=1 TO CONT 


2950 PRINT - TOTRL RECEITAS " , T 


2330 


PRINT ■■* + + + 


RB 132-LEN 'S' ; XS 


+ 


+ + 


2955 LET *S=5TRS (INT lNflU*CE*UU 


2333 


PRINT I 


1 CEi 


2335 


PRINT ■■DRTfl -.DSm 


2956 PRINT 


2336 


PRINT -PINTOS RDQUIRID05 


2960 PRINT -ESTOQUE " , TR 


: R II 


■ 'CRS - : J 'I) , "1 ■' 


6 132-LEN sS: . ^» 


2340 


PRINT -DESPE5R C/RRCflOiCRSi 


2965 PRINT 


■ , R 


Ii 


2970 LET L= 'Z+B' *OU+NRU*UU- IDE5P 


2345 


PRINT C0N5UM0 iKGi " , K il; 


+ D+'J(SL1 ♦OU 


£350 


PRINT -DE-SPESflS DIUERSflS 'CR 


2971 LET >S = S.TRS 1 INT ILtCEJ'CE' 


Si 


. D III 


2930 PRINT ■LUCRO ',Tfl 


2355 


PRINT -O'-'OS UENDID05. ■" , X ( I 


B 132-LEN "-SI . X* 


1 , ■■ <cpf ,Z'.i' ,■''■■ 


2981 PRINT 


£360 


PRINT ■RUES UENDIDR5 ■■.'."I 


2982 IF NO-" » THEN GOTO 3000 


* , " 


CRS", B III , ■■' " 


2935 LET CD= l DE5R+D+(JRL-Z-B ) *0U* 


2370 


PRINT "flUES DESCRRTRDfiS 


12 .'«:- iNfl<.J+.nu*12'Xi 


M II' 




2936 LET XS=STR$ IINT lCD*CEiCE 


2375 


PRINT "ORTN ■■,0lli 


1 


2330 


NEXT I 


2990 PRINT "CUSTO/DUZIfi ".T 


£390 


PRINT RT 20,0. "DIGITE INS^R 


RB 1 32-LEN X-Sj , XS 


UCRO 




3000 PRINT AT 20.0, "DIGITE INSTR 


£391 


GOSUB 1110 


UCAD ■ 


2392 


INPUT PS 


3010 GOSUB 1110 


2393 


GOTO £040 


3015 INPUT PS 


2500 


Cl3 


3020 GOSUB £040 


£510 


PRINT -yflLOR RTUHL DR ORTN 


3980 CLS 






3990 :TOP 


2520 


INPi iT i"ii 1 


4000 REM OPA'-.'RCRO 


£530 


PRINT ■CRS ' . OU 


4005 CL5 


2540 


PRINT . -URLOR UNIT. RUE "> " 


4010 PRINT -0 GRRURDOR E5TR LIGR 

DO ■, 3 -N 1 ^'^ 


2550 


INPUT '.'U 


4020 GOSUB 1060 


2560 


PRINT CPJ ■ . UU. - .00- 


4030 INPUT FS 


i5-o 


LET EE5P=ci-PI 


4040 IF FS = THEN GOTO 4005 


25-50 


LET rG=DE5t? 


4050 SRi.'E ■ GRAN.jg- 


2590 


i_ET C'SP.G 


4060 GOTj 1500 


2600 


i_ET ■ =D 




2610 


^ET '.■=L- 




26 20 


1_ET Mr-|=D 




2iE30 


.-ET RE=D 




2c ;-5 


^ET RDsD 




263. 


LET z=D 
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Granja 

MICRO SISTEMAS. novembro/84 





Seu micro 
merece 



Assistencia 



Tecnica 
ASSIST. 

E voce merece a tranquilidade de contar 
com a mais eficienle equipe !ecnica do Rio. 
treJnada nas fabricas, e recomendada pela 
Petro&ras, Furnas, Light e Bolsa de Valores, 
A ASSIST oferece tambem diversas ofKjaes 
para contratos anuais de asslslencia tecni- 
ca, que garantem o maximo ao seu micro, 

Esemcustarmalsporisto. 

Os micros Spectrum, Protogica, Digitus . 
e multos outros, alem de video-games e com- 
patiblllza^ao de penlericos , tern na ASSIST 
uma assistencia lecnica aprovada peios pro- 
pnos (abncantes- Alem disto, voce lem total 
assistencia aos micros importados: Sinciair. 
TRS-80, Apple e PC IBM, 

Se voce lem um micro e quer o maximo em 
assistencia lecnica, nao pense duas vezes: 
penseASSIST. 

ASSIST A maxima solugao para seu micro. 




Assessoria de Sistemas e Engenharia Ltda. 

Av Beira-Mar,406-Gr.805-Cas(elo 
Tel. 262-5763 



INSTITUTO DE TECNOLOGIA ORT 
CENTRO DE INFORMATICA 




CURSOS 

LINHA IBM (Apoio Marcodata) 
OS/VSl - VSE - VM/CMS - VSAM 
CICS ~ DL/1- COBOL: TECNICAS E 
OTIMIZACAO 

MICROINFORMATICA 

BASIC - ASSEIVIBLER - PASCAL 

LOGO-CP/M - VISICALC 

dBASE 11 -WORDSTAR 

FORMAQAO DE PROGRAMADORES 
DURAQAO: 9 meses 

cpd-ort: ibm 4341 com terminais 
laboratorio de micros 

treinamento in house 

SOLICITE INFORMACOES E 
FOLHETOS explicativos 



RUA DONA MARIANA. 213 - BOTAFOGO 
TEL 286-7842 



trs 80 trs 80 trs 80 t:rs 80 trs 



REM 
REM 
REM 
REM 
REM 
REM 
REM 

8 REM 

9 REM 



DiRE:"roRxo EiM e: T I OU E T i=* s 



Julio Antonio Rodrigues 
Brasi 1 i a - DF 

CP 500 



Emitir etiquetas com o diretdrk) dos 
disquetes, a Hm de auxiliar o manuseto 
dos mesmos, € o que faz este programa 
denomiiiado DIR/BAS. Alem de impri- 
mir etiqu^as no sistema TRSDOS, o 
piDgrama tandem registra os dados de 
outFos sistemas, via teclado. 




Para sua maior comodidade, 

a ATI Editora Lida. 

coloca i tua d'ttpoui^ 

OS seguintes endere^os 

de seus repreaent an tes autorizados: 

RIO DE JANEIRO 

ATI Editora Lida. 

Av. Presidente Wilson, 165 - 

GR. 1210 

CEP 20030 -TelL:(Q21) 

262-S2S9 

SAO PAULO 
ATI Edrtora Ltda. 
Rua Oliveira Dias, 153 
CEP 01433 - Tels.: (Oil) 
853-3800 

PORTO ALEGRE 

Aurora Assessofia Empresarid 

Ltda. 

Rua Uruguai, 35 sala - 622 

CEP 90000 - Tel.: (0512) 2B4aB39 



10 

30 
40 



"PROGRAMA: 0IR/8AS 

'-FIJMCAO: IHPRIME DIRETORIO EH ETKKJETA AUTO-COLANTE 
'"AUTOR: JULIO ANTONIO ROOK IGliES- TEL 273-3218 BRA5ILIA-DF 
SO "E«UIPAHENT0:NICROS DA LINHA TRS-BO C/SIST . TIISOOS/D055O0 
60 '~ IHPRCSSOSA COM SUPERSCRIPT (LINHA EPSON) 
70 •- — 



80 CI.EA* ?ODDiDIM At(Sa):X=4] 

90 CLS!PRIMT:PRINT-I0£HTIFiCACAO DO OISMJETE i-jUMPUT NO* 

lOO PRINT:PRINT:PRINT-0 DIsmiETE E' CONPATIVEL CON TRSD05/OOSSOO 

■> <S/N>-; 
110 Y»=INKeri:lF Y%= — TWN 110 ELSE IF Y»=''S" TtCN t?0 ELSE IF 
Y»=''N" THEN 3iO ELSE 100 

120 CLS:PRINT:PRINT''DRI<.fE OHOE S£ ENCONTRA OISMJCTE A SER ETIfl 
UETADDO ?"; 

130 y»=lNKETt:IF r»= — THEN 130 ELSE IF Y»=-X- THEN 3i0 ELSE Y=V 
AL<Yt> 
140 IF Y=I THEN CHD"D: l-:GOTO ISO ELSE IF Y=0 THEN Crtf)'T):0-!SOTO 

150 ELSE 120 
150 PRIMTsPHINT- •■« CLASSIFICANOO •■ 

«~ 
160 F0« I=153«0 TO 16383 

170 IF PEEK(I>>64 AND PEEK<I)<9t THEN COSUe 3O0:NEXT ELSE IF PEE 
K<I>=4Z THEN tea ELSE NEXT 
180 CLSIGOTO 200 

190 PRINT:PfiINT"PREPARE A IHPRES50RA PARA <M>EKAB''tFOR J=l TO SOO 
tNEXT 

2O0 STZ=PEEK( 14312) AND 240:IF STZ< >48 THEN 190 

210 LPBINT CHH»<27)-'a~)CHB»(27)-A- CHB*< 129) ;CHRt< 27)-G-;CHR»<27 
)-E-:LPBINT HDS 

220 LPSINT CHRk(27)-'F'';CHRt(27)'H';CHR«(lS):LPRINT:LJ>RIHT:LPRlHT 
tLPRINT ST»IM6»(55,~--) 

230 LPRINT CHR«(27)-A'' CHBtt 134) ;CHRl(27 )'S- CHRK 0) :NZ=X-i JCHD" 
0'.NZ.A%<t> 

240 FOB 1=1 TO X STEP 4 i 12=1*1 : 13= I2tl : 14=13*1 

250 LPRINT At< I>;TAB<14>At(I2);TAB(2a)At(I3);TAB<42)AS(I4):NEXT 
255 FOR 1 = 1 TO 38-X STEP 4:LJ'RINT:NeXT 

260 CLSiPRIMTiPRINTiPRINTTHPRIHIR NOVAHEHTE ? t S/N >" 
270 yt-IWtCY»iIF Y*=-'- THEN 270 ELSE IF Y*=*'S- THEN 210 
280 CLS:PHINT:PRINT5PRIHT'TEM HAIS OIS«IETE A ETIftUETAR ? < S/M 
>- 

290 ri'INKEYliIF Y*="* THEN 290 ELSE IF Yl-'S- THEN RUN ELSC (XS 
:EM> 

300 At-— 

310 IF PEEX<I)=32 TICN 340 
320 At=A%4'C)«S<PEEK(I>) 
330 t=I*i:G0T0 310 
340 A»(X>=At:X=X*l:RETURN 
350 END 

360 CLS:PR1MT''ENTRE COM OS NOHES DOS PROGRAHASi -IPRINTSPRINTTA 
RA ENCERRAR DIGITE <FIH>'':PRINT :FOR 1 = 1 TO 50 
370 I WUT -PROGRAMA i-;A» 

380 IF LEFTS(flS,3)='FIM- TIffN X=I:GOTO 180 
390 A»<I>=A»:Ai=" 
4D0 NEXT 
&DOOO SAVE-0IR7BAS~ 




PR0F1SSI0NAL DE GRANDE QUAUFICAC/IO 

MICR0C0MPU1AD0R 

MTS-IV 



D/R/BAS 

£ possi wl, ainda, registrar o nome do 
disquete a fim de facilitar ainda mais a 
identifica^fe. 



A unica exigencia do programa e o 
USD de uma impressora que tenha o re- 
curso do superxript, (linha Epson). 



MAQUIS TECNOLOGIA E SISTEMAS LTDA 



Rio de Janeiro 

Av BarSo de Tete 7 GR 501 /OS 

Tetefone 263 3330 

TWX 1021130364 



IIIIIS 

S3o Paulo 

Av dos Imarte 989 

Tetefone 543 3611 

TWX (Oil) 21299 



JBaseado em microprocessador Z80-A e com 
industrializapao aprovada pda SEI, o MTS-IV 6 urn 
microcXHnputador para sofisticadas apticai;^te. 
Ek estk capadtado para assumir a carga de trabalho 
de uma pequena/m^dia em;resa e aptica^Oes 
dentifkas ou comerciais em empresas de grande porte, 
quando em [X'ocessamento disiribuido. 

• 128 kbytes 

• Acopla 4 discos fkadveis de 5 1/4" e 4 discos de 8" 

• Discbs rigidos de 5, 10 e 15 Mbytes 

• Impressora de 100 cps A 600 LPM 

• Modularidade de crescimento 

• Processamento distribuido 

• Smulagao de terminals para conexdo com qualquer 
"mainframe" 

• Possilnlidade de liga^ em rede local. 

Seu sistema opoadonal e DOS-MB, comp^ivd com 
CP/M, ^xesentando planiiha detrdnica, editor de 
textos, banco de dados, contabtlidade, contas a pagar. 
folha de pagamento, etc. 
A MAQUIS garante este profissional compacto, 
perfdtamente adequado para processamoito tfc 
dados, com a performanrc, qualidade e seguraiiQa 
exigjdas nas aptica^des de use [n'ofissonal. 



Revendedor para o Rio de Janeiro: 
CLAPPY — Av. Rio Branco n° 12. 
Tetefones: 253-3395 e 236-7175 RJ 



s i n c ■] a i I'- <;; i n c I ^\ \ r si 1 1 c: 1 b i r' ^' i n c J 
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1 REM 

S Ri--M 

3 rih:m- 

A REM 

5 REM 

6 REM 

7 RPiM 
B REM 
9 Rb":M 



he:: i:;i;i! ii.j ie^\, n:::: a::^ i::> n- ^^ o nj h^!: "^^ if"-!. «::: it-ii ii'";ii o..,." ve 



JoHi;-? La i z V i ana do Cout:o 
Rio de Janefiro - R.l 



CP ,;^i)0 



Desenvolvido para micros da linha 
Sinclair, este programa e um aplicaiivo 
que se presta bem ao ensino da Fluvio- 
logia. podendo ser utilizado nos cursos 
de Engenharia Civil. Agronomia, Enge- 
nharia Florestal, Licenciatura em Cien- 
cias Agri'colas, Engenharia Sanitaria e 
outros que apliquem os conhecimentos 
basicos de medi^ao de descargas e ni'vel 
da agua em cursos fluviais. 

O programa oferece ainda no^oes de 
come se medem o nivel da agua (N.A.) 
e a vazao (Q) em pequenos rios; dica pa- 
ra se operar com logaritmos de base 10; 
rotina para se obter os somatorios de 
X,Y,X*Y e OS seus quadrados; tecnicas 
de formata^ao usando vi'rgulas, PRINT 
AT, PRINT TAB e strings; rotina para se 
ajustar pares de valores X e Y a uma re- 
ta (atjaves de logaritmos) e calcular a 
precisao doajustamento;esugestoes para 
que OS proprios leitores otimizem o pro- 
grama, inclusive pelo uso do Assembler. 

MEDINDO A VAZAO 

Se medirmos a vazao de um curso 
d'agua numa determinada se^ao trans- 
versal e repetirmos a opera?ao mais tar- 
de, no mesmo local, mas para outro ni'- 
vel d'agua (quando o rio estiver mais 
cheio, por exemplo), veremos que as va- 
zoes tambem serao diferentes. E faciJ de 
concluir que, se nada de extraordinario 
ocorrer naquele trecho do rio, a cada ni'- 
vel d'agua (N.A.), corresponde uma uni- 
ca vazao (Q). 

Esle fato, aparentemente obvio, e de 
extrema importancia em Hidrologia, a 
ciencia que trata do estudo da agua na 
natureza. Assim. se plotarmos num sis- 
tema de eixos ortogonais os dados de 
N.A. versus Q e ajustarmos os pontos 
decorrentes de cada par de medi^ao, te- 
remos a Curva Chave. Cada Curva Chave 
requer uma dezena ou mais de pontos 



para o seu tra9ado e so representa o re- 
gime do rio naquele trecho. 

que de extraordinario poderia 
ocorrer na natureza para modificar essa 
estreita rela^ao bi-uni'voca entre ni'vel 
d'agua e vazao? Somente com a altera- 
^ao do regime do rio, pelo seu represa- 
mento ou pela altera^ao da geometria da 
calha, atraves da retirada continuada de 
areia para a constru^ao civil. Em qual- 
quer das duas situagoes, para a mesma 
sec?ao transversal do rio, terfamos duas 
ou mais Curvas Chave, dependendo das 
transforma^oes sofridas pelo leito do rio 
no trecho e intervalo de tempo conside- 
rados. 

Dados de leituras de ni'veis d'agua e 
de medifoes de vazao realizadas na mai- 
oria dos rios brasileiros sao encontrados 
em orgaos publicos como o DNAEE, 
CPRM, FURNAS, CEMIG, CESP, LIGHT 
e outros. O leitor tambem pode improvi- 
sar niveis d'agua com reguas graduadas 
de madeira e medir vazoes de forma ex- 
pedita, multiplicando a area moLhada da 
se^ao transversal do rio pela velocidade 
media do escoamento, cronometrando o 
tempo que um objeto flutuante leva pa- 
ra percorrer um certo trecho retih'neo. 

A EQUA^AO 

A Curva Chave pode ser representada 
matematicamente por uma equaijSo do 
tipo: 

Q = K.(Hia)" 

onde 

• Q = vazao do curso d'agua (m'^/s); 

• H = ni'vel d'agua (m); 

• n = coefieiente angular da reta; 

• K = coefieiente linear da reta; 

• a = constante. 

Mas, por que n e K referem-se a retas. 
quando estamos falando de curva ? E 
que a Curva Chave deve se transformar 
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numa reta, quando trabalhamos com os 
logaritmos dos N.A. e de Q (figura 1). 
Ocorre que, mesmo com logaritmos isso 
nao acontece, a menos que, por tentati- 
vas, somarmos ou subtrairmos ao N.A. 
um valor constante a. Procedendo deste 
modo, para cada valor de a, teremos 
uma curva com determinada concavida- 
de. Com a varia^ao desse parametro, a 
concavidade vai se alterando. ate trans- 
formar-se numa reta. £ o ponto em que 
a curva atinge o maior valor do Coefi- 
eiente de Correlagao (R), toma o nome 
de Curva Qiave e fornece os parametros 
K e n da equa^ao acima. 

£ uma larefa muito cansativa, ate 
quando sao usadas calculadoras progra- 
maveis tipo HP ou Texas. Para o micro, 
isso e facil, embora nao menos trabalho- 
so. Basta escolhermos os limites de va- 
ria9ao da constante a, introduzirmos as 
leituras de N.A. e Q e esperar os resulta- 
dos. 

Para cada valor de a que vai sendo 
acrescido ou subtrai'do do N.A., manti- 
das as vaz5es constantes, aparece tabe- 
lado no monitor os valores correspon- 
dentes de K, n e R. O valor R, sempre 
menor que a unidade, representa o Coe- 
fieiente de Correla^ao, ou seja, o grau de 
aderencia (ou coincidencia) dos pontos 
a reta calculada. Quanto maior for este 
valor, mais perfeito sera o ajustamento 
da reta aos pontos que Ihe dSo origem. 

Concluida a tabela, tomamos os valo- 
res de H, K, a e n da linha corresponden- 
te ao maior valor de R e os substituimos 



na equa^ao. Obtida a Equa9^o da Curva 
Chave, so nos resta testar a sua autenti- 
cidade, atribuindo ao ni'vel d'agua (H) 
OS valores considerados - e mesmo ou- 
tros, mais elevados — , obtendo-se as res- 
pectivas vazoes. 

NA SALA DE AULA 

Este programa pode tambem ser uti- 
lizado em sala de aula, conforme o 
exemplo seguinte. Uma vez tendo sido 
fornecido aos alunos os cbnceitos basi- 
cos de Fluviologia (estudo dos rios), de 
Hidrometria (medi^ao de N.A. e Q) e da 
propria Curva Chave, podera ser apre- 
sentado um exercicio de fixafSo, que 
podera ter o seguinte enunciado: 

Uma cheia excepcional ocorreu num 
certo rio. A descarga de pico surgiu du- 
rante a noite e nao foi possi'vel medi-la. 
A leitura maxima de N.A. registrada foi 
de 4,42 m. Medidas anteriores correla- 
cionando N.A. versus descarga sao dis- 
poniveis e dadas a seguir: 



N.A. im) 


Q Im /s) 


N.A. im) 


(m / 


0,52 


2,8 


1 ,32 


37, 1 


0,60 


4.1 


2,04 


42,7 


0.7« 


7,6 


2. 10 


45,6 


1,06 


13.9 


2,38 


53,8 


1,22 


18,7 


2,67 


68,2 


1,30 


21, B 


2,72 


69,2 


1,55 


26.7 


2,81 


70, S 


1,60 


26,2 


3,18 


77,3 


1,11 


30,3 







Pede-se: 

a) determinar os parametros K, n,a e a 
respectiva da Curva Oiave: 

b) calcular uma estimativa da descarga 
de cheia ocorrida. 

Anexo a este problema, fornece -se ao 
aluno uma copia do programa e dos re- 
sultados que aparecerao no monitor. 
Roda-se o programa, com os dados do 
problema e comentam-se os resultados, 
na medida em que forem sendo tabela- 
dos. Estabelecida a Equa^ao da Curva 
Chave, pede-se a alguns alunos que a tes- 
tem, usando os valores de N.A. do enun- 
ciado. Finalizando a aula, fornece-se a 
cada qual uma follia de papel di-log e 
pede-se que tracem a curva para a=0 e a 
Curva Chave. 

Graficamente, o valor de K e obtido 
atraves de um artificto, lendo-o direta- 
mente no ebto horizontal (das vazSes) 
para H — a = I, ja que log 1 = 0, ou seja: 



log Q = log K + n.log (H - a) 
log Q = log K 
Q = K 



OTIMIZACAO 

Para os leitores interessados em con- 
tribuir com o seu tempo, criatividade e 
conhecimentos em Assembler, sugeri- 



mos uma serie de modifica^oes possi'veis 
e desejaveis neste programa. Elas torna- 
rao mais rapida a resposta do micro nos 
calculos da Curva Chave, alem de outras 
vantagens esteticas e operativas. As su- 
gestoes sao as segutntes: 

a) usar a rotina para DATA/READ/ 
RESTORE publicada em Micro Siste- 
mas n? 25,pag. 8; 

b) suprimir a linha 70. substiluindo-a 
por uma rotina que armazene os va- 
lores de Y — D na propria matriz da 
linha 60; 

c) substituir a linha 90 por LET K =■ 
1/2.3 onde 2,3 e a base dos logarit- 
mos neperianos; 

d) retirar do 1390 FOR-NEXT que sub- 
Irai a constante do N.A. e calcula os 
somatorios (linhas 310 a 560), a roti- 
na que transforma as vazoes em log e 
calcula OS somatorios de X e de X^ ; 

e) transformar essas duas rotinas para 
linguagem de maquina (Assembler), 
por serem as mais demoradas; 

f) elaborar rotina que guarde na memo- 
rla do micro os valores de D, A, N e 
K quando R for niaximo, a fmi de 
testar a Equa9ao da Curva Chave ao 
final do programa. sem termos de 
reintroduzir estes parametros; 

g) apresentar a equa9ao da Curva Chave 
logo apos a tabela, com os seus para- 
metros definitivos e sob a forma (li- 
teral) em que foi enunciada noartigo. 



1 REM CUP.yfl CHFIUE 

10 PRINT "QUflNTRS MEDIDflS ?" 

£0 INPUT N 

30 PRINT . ,"N= •■ -.H 

4-0 CL5 

50 DIM X(N) 

60 DIM V (NJ 

70 DIM 2i;Ni 

30 PEM COEf^.TRflNSF.LN EM LG 

90 LET K = .4.34.£944S2 
100 PRINT ■■INTRClDUZfl OS N.fl." 
110 FOR M=l TO N 
120 INPUT Y (M? 
130 PRINT M; " " ; Y CM) 

14.0 NEXT M 
150 CL5 

160 PRINT "INTRODUZfl PS UflZOE: 
170 FOR M=l TO N 
180 INPUT X(M.i 
190 PRINT M; " ";X (Ml 
£00 NEXT M 
ai0 CLS 

220 PRINT PT 1£ .13; "PGUPRDE' 
230 REM LG DPS UfiZOES 
240 FOR M=l TO N 
250 LET U=LN i.X (MJ ) 
260 LET X i.Mi =:U*K 
270 NEXT M 

260 REM CiJUSTE DflS RETPS 
290 TtS 

300 PRINT TRE £;-R",TflB 11. "N' 
TRB 19; "K" . ThB 29 I ■"P" 
310 FOP D=-l TO 1 STEP .1 
320 LET 51=0 
330 LET S2=0 
340 LET S3=0 
350 LET 54=0 
360 LET 55=0 
370 FOR M=l TO N 
3S0 LET Z '.M ' =Y I Ml. -fD 
390 LET W=LN iPBS (Z(M)JJ 
400 LET Z (Ml =U*K 
410 LET 51=:31+X (M) 
420 LET S2=S2-»-X (Ml *X (Ml 



430 LET S3=53-hZ (Ml 

440 LET 54=S4■^2 tHJ *Z CM) 

450 LET 55=S5-fX (M) *Z (M! 

460 NEXT rt 

470 REM COEr .PNGULPR, LINERP ti 
DE CORRELPChu 

430 LET F=N*S2-51*51 

490 LET H=iN*S5-Sl*S3J /F 

500 LET B=i.52*S3-Sl*S5J /F 

510 LET R= iN*55-51*S3;i /SOP ((N* 
54-53*53 1 *>- 1 

520 LET fi$=5TR$ Cl/flj 

530 LET K$ = 5TRS ( 10** i -E /H 1 ■ 

540 LET RJ=5TRS tR) 

550 PRINT TPB 0;D;TRB 9,H$i. Tjj 
5);TPB 17,Kii. TO 5;i,TfiB £5;R$' T 
7} 

560 NEXT 

570 PRINT "PPRP APLIChP P EOUPC 
flO DP CUR'Jh-CHPUE . INTRODUZfl Ob 
SEUS PhRPME-TROS" 

560 PRINT .. "GOEF, LINEAR K= " .. 



590 INPUT 


r; 




600 PRINT 


K 




610 PRINT 




REDUCfiO Nfi LEITUPP 


DP REGUP 


'■-,'■ 


■M SINPLl H=: ■' . 


620 INPUT 


H 




630 PRINT 


H 




640 PRINT 




'COEF. PNGULPR N= ", 


650 INPUT 


f-l 




660 PRINT 


N 




670 PRINT 




■JNTRODUZP UM N.P. 



OUPLQUEP PhPh obter P UPZflO COPR 
E5P0NDENTE" 

660 INPUT H 

690 PRINT . , '■H= ■■ : H 

700 PRINT , , . , ■■UPZPO= "; 

710 LET OQ=K* iH-fflJ **N 

720 LET 0S=5TRS (OOJ 

730 PRINT Q$ I TO 4 J 

740 PPU3E 60 

750 CLS 

760 uOTu 670 



Equagao da Curva Chave 



36 
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trs 80 trs 80 trs 80 trs 80 trs 



REM 

REM 

REM- 

REM 

REM 

REM 

REM 

8 REM 

9 REM 



CUSXO ROR KM R00<=^00 



Ricardo de OliverJra 
Bo£* Esperanca - MG 

CP 300 



"Saber quanto custa usar um carro e tSo importante para 
aquele que utiliza o veicuk) no trabalho, como para os que o 
reservam apiena^ao lazer". O programa a seguir utiliza uma for- 
mula elaborada pela REVISTA 4 RODAS, que p)eimite, ao 
usuario, calcular o pre^o de cada quilometro rodado de seu 
veicuk). 

A formula ^ a seguinte: 

Ckm = P - V + T (A+B+G+J) + L + M 

C . K 



K 



K 



Estes s^o OS hens: 
Ckm = Custo por km rodado. 
P = Pre^ do carro na compra. 
V = Valoriza^So do carro no pen'odo de use consaderado. 

Ex.: Valor atual CrS 1.900.000,00 

Valor do carro na compra ■■ . CrS 1.100.000,00 - 
VALORIZAgAO CrS 800.000,00 

K = Quflometragem percorrida no pen'odo. 

Ex.: Km atual 900.000 Itm 

Km no ato da compra km 

QiiiloiDet.ra9eiD percorrida 900.000 km 

T = Tempo de uso (em anos). 

Ex.: Data atual 1984 

Data da compra 1981 



TEMPO 



3 anos 



G = 



A = Custo anual do seguro. 

DBS.: Se houver outre tipo de seguro, esle devera ser soma- 

do ao seguro obrigatdrio. 

B = Custo anuai de iacra^ao (TRU, placas e certificado — nao 
sSo computados honorarios de despachante), 
Custo anual de garagem ou estacionamento. Se o usuario 
tivergaragem propria, podera eliminar esta parcela. 

J = Juros anuais em auzeiro (% sobre o capital empregado 
na compra do carro). Para os que nS^o desejarem compu- 
tar isso no Ckm, basta eliminar o J da formula. 

L = Custo do combuslivel por litro, 

C = 0>nsunx) do combustivel, em km/litro. 

M = Despesas de manuteni^o do carro: revisOes, trocas de 
oteo, lavagem e lubritlca^o completa (por mes), lavagem 
simptes(por mes), etc. 



40 



Agora, vamos ver uma aplica^o pratica: 
VEI'CULO - Honda CB 400 

P = Cr$ 1.198.000,00 

V = 0% 1.062,000,00 

K = 13.000 km 

T = 1 ano 

A = as 5.600,00 

B = CrS 25.000,00 

G = CrS 100.000,00 

J = CrS 599.000,00 (50% do capital) 

L = CrS 672.00 

C = 20 km/litro 

M = CrS 80.000,00 

Sendo assim, o resuhado (Ckm) 6 de CrS 106,34 por km 
rodado. 



to BEn •» CUSTO POO KH ROCMDO ••■ 

30 REM »■ IICMDO DC OLIUEIBA - 1964 h> 

30 GLSIPBINiaa.CHRttMSlt 

40 FOa X<>« TO l?liSeTIX.0>:SCTIX,4A>:rCXT X 

SO FOR T*5 TO ««:SET(A.T> tSET(7, T) INEXT t 

60 FC« T»0 TO 41l5CTI120,T»lSET<t2t,y>iMEXT T 

70 PffINT8l02O.CMtl(143>i 

BO FOR X=0 TO 117:5£T(X,3)iHEXT X 

TO F0« X-IO r« 127i5ET(J(.43IEHex1 X 

too FOR t«3 TO 43lS£T(0.T)tSET(l,y)tSETC126.T):SET(i27,Y)JtlEXT 

110 PRIMT3ei>7.CHR«ll40>:812A.CI«S(l31>t 

120 PRIHTS409, -CUSTO P0« ««-, 

130 P8INIa4A9.-'R<c>ri]D dr Ollvcira-f 

140 FOR X=l TO ^:NeXT:PRINT8a?9.- -,tFOR A=l TO SOiMtXT 

ISO Et-IKKETt:tF E5«-- THEM 140 ELSE O-S 

160 CLSiPRlKTIPRINTIPRIMT 

170 IMPUT- Soil o pr>co da cvro na coapra'cP 

leO IHPUT- ftuanto foi a valor izacao- ;U 

1?0 IMPtn- Oiial a ^ui loaetragca pcrcornda no perio««o-it( 

200 AS-(P-V)/I[ 

2IO CLSIPRINTIPeiNTiPBINT 

220 IMPUT- Entrv ciw o t pupo dc u&o rm ano9-,T 

230 AC=I/lt 

240 IMPUT- Cunto anual do Sr?uro--ft 

250 PBIMT- Cus(o anual dp lacrracan - rBU, PLACAS A CERTIFICADO. 

260 IHPUT' {Nao sao i: oupttt ado« honorarios de OeiipaihanlF l*;B 

270 INPUT' CuKto anual d« qaragca ou est ac iona»«nto-;G 

280 PRINT- J>vo& anuais rm CRUZEIROS, %ol>rw- 

290 INPUT- o prcco do carro na ccMpra'iJ 

300 IW)=**B»G»J 

310 CLSiPRlMTiPRIKTlPRJNT 

320 INPUT' Cuslo do Coabust-vcl por tilro-,L 

330 INPUT' Consuiui do Coa^ustivel em KH^Iitro'-C 

340 At=L/C 

350 INPUT - 

360 AF>n/* 

380 0(H-Afi*aC*AO*iW<AF 

390 CLSIPRIMT CHB«<?3> 

400 FOR X-44 TO 127 

410 5ET<X,ie>:5ET(lZ7-X.IS)INEXT 

420 PRtMTS448.~Cu«toi-;:PRINT llSINC~ttailR». dHN . H«*;CKHt 'PRINT' p 

or fc»~ 

430 FOR X-^64 TO 127 

440 SET(X,24>!SET(127-X,24»:NEXT 

450 FOP X-1 TO IOODOOO:NEXT 

460 END 



l>e<PFta« dp Baniitcncao do vprcuto no ppriodD-;N 



3^ 



Custo por km Rodado 
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A saluc'o definitive pan os rab.ric9[iiej de mc:roconi|]utadt)res fomecerein scus e^uipairientos en CDrli^uir^c^D ct'iipletj. 



AsGratu 80 e 100sSoQoaivani;adas que murta gente ainda duvida que etas sejam feitas aquiPor um lado, isso t murto bom, porque g 
prova que somos capazes de fabricar perif^icos 13o perf eitos quanto os Id de fora, E. por outro. t muHo bom tamb^m , porque nos d3 I 
a tranquiltdade de poder ter uma impressora que reaffea exatamente o trabalho que a gente precisa. As Graffix 80 e 100 sao assim: de | 
alta resoluc^ogrdfic^ {120 pontes por pok^d^); impresscio bidirecional com procura l^ica; contiole de espat^mento ente ijnhas; 
tabulag^o horizontal e vertical; espacamento entre lin has de at^ 1/216 de pole^da; oferecem dezenas de combinaQDes tipogrincas; | 
imprimem com todos os acsntos e sinais da Ifngua portuguesa, em caraderes nos tamanhos normal comprimido, expandido e com- : 
prirnkJo expandrdo; possuem modo de impress^o enfatizado para con^espond^ncia (Near Letter Quality); e mais uma s^ie de peque^ I 
nos detalhes que fazem uma ^nde impressora. Tudo isso com assist^ncia tunica 
completa e permanente. Agora, pergunte pro Yoshida se o Brasil atineiu ou nSo o nl- 
vel tecnolOgico dos paises desenvolvidos. Nao se preocupe. Ele vai responder que 
Sim, em portueu^s. Porque ele ^ tao brasileiro quanto as Grafix. SCRITTA ELETRONICA LTDA. 

flJA HELJApQLIS H7 EirB7 SAD PAJLC CEP 05318 FONES: 260 9659^8315177 TELEX: (OVU 2505& SCTT ER 



GRAFIX 



fAc^aft I \Tn9 pora 
viTdto. pora vtimino 



Suporfe fnna ptontthm 

optar^epat ^ua 

truasda do lada AfOilO 




dncn 



bote oirow^ ^ 

parofuto^d* Vir" 
rrrrtD para baixc 



'•maghmtrodo 
odo dv Xirr\fT] . 

IdrmicD rex Fur 



fl»giikt9ti7> d* 

O'fui'O' rtO f7p«J0 
do i»cfofio poro 

dDopflroder 




f roromwi Fq 
OfObam-frnifD o/n 
com vpoxJ *m pd 



Sapator r«gvfdv*/t 



'dei'i'ronfAs qL/0 
CDf rJgvm Di p<3iifvtf fl^ 
d0trt?v*Fi dopJ'Sp, 



AiF. 10766/30 

D/mensSes; 

7ompo Inforlon 

}D7cen X 66cm X 69em 

di» offurtr 

7ofnpo iuporior: 

107cm X JOcm X 94cm 



Patnai «m cf Or 
01 viVoce«, 



90c/n X iOOcm X 69Gm 






^:e<:r 



QjrTwfiifla-l 
aifvro 









oJFum 



JHF. 1007^ I, ro7n 





A MEMPHIS fobrjco mesas poro todos os ffpos d« 
compLrtacfores e p&r^f^rfcos. Sendo o MEMPHIS p/one/ro 
nes*© ifjpo de desjgn, garonfe a estrutvro s6Hda e 
seguro dos suos mesos, podendo voc§ encontrar d&signs 
semel'horfteSr por^m /anxiJs com o mesmo padrHo de 
qualidade. 



Chame os nossos prof'ssJonois pora (he indicor o opfSo 

correta. 

As mesDs L/NE WINNER t§m a vantogem de chegorem oo 

usudrJo desmontados, em embo/ogens e^peciais para fora 

de Soo Pauh e com FnsfrufSes de montogem. 

Esse ststema permlte umo moifor seguron^o do mo'erJo/ e 

grande economia de fre^e. 






IftTELEFOWe 



— OEM pora revendedores e fabr/confes de conapuf odores e perff^ricos. — 



(011)800-8462 






j-»gjjrrodo iJ* CfonofnieS 

OLrrtlrCO do iBj'Otrl' If^. 






memphis 

MiAHIZ \kt>PAM.O: 

COmAi. M VtHtHkiikO ^AUlO: 

Alt. AmalhtAnnfiti.XB faff -Crw; -JUl-^i^ ■J»\MTl,l3\MiiSIi 

fjLiAL no H J ANIWa 

Fraiii 4a FIVTHiAfo. H - Bl^lU a - -Cj lin - Fona: ffSZ\ \ 3Ii <3BM 



@ 



\^mos colocar todos 



tt » ** it *4 ** « tHt ** ** ** *HHH* *t *t ** it tM* *H* t* I 
sine: ",l a i r s \ n c: 1 a i i-- s i n c: 1 a i i'" lii i n c: 
tHt tt tHi it it M *t M tM* tt tt tH* t* « t* tt H t* n tt tt *t tt it it tHt tt iHHt H n t4 it t* ** ti tHHt « tHHHt *t tt tt t? tt ti *t tt « it *t it ^ tHHHMt (t « tt t 



• 




Quem usa computador para controles e decisdes 
empresariab. organiza^ de assumes pcssoais. 
irabalhos eooLares ou simplcsmeiitc para se diveniir. 
sempre quer repostas CTiatas. 

E por saber muito bcm disso, a VERBATIM A a 
empresa que mais invcstc em pesquisa e 
dcsdivolvimmLo de produtos para alcart^^ t mani^r $aa 
posic^ de liderarK;^ em qualidade de midia magn^ica ficx/vel - 
c garantir as resposla^ cxaLas que voce espera. 

A VERBATIM ji trouxe p^a o Brazil o resuJtado de todos esses 
anos de Lrabalho. Sua fibrica brasiieira «ti produzindo os disquetes 
de 5 1/4 c de S polegadas^ os mesmos que Lideram as vendas no 
mundo mtdro. 

E se prepaia para laagar suas fitas magn*tjcas que vSo irazer 
um novo padfao de qualldade, b«m acima das nomnas tradkionais. 



® 



Xferbatini 



Makr Eabncairie mundtal de disquetes 

Fone: (011)853.1209-5? 



Datalife tern resposta para tuda 



REM 

REM 

REM-- 

REM 

REM 

REM 

REM 

iniM 

REM 



M 1: Fi!; rf^ih H-"" if::=h IL... if% ih-J> 1" Bl. 



Lac r Mof: rx Al. ves 
Para 9 u a c: u P s u I i s t a 



SP 



Para que se possa aproveitar melhor as potencialidades dos 
micros da linha Sinclair 6 necessirio que se aprenda a contor- 
nar, certas situa96es. Resultados inesperados muitas vezes sur- 
preendem usuirio menos avisado fazendo-o perder tempo 
tentando descobrir porque determinada condi9§o parece estar 
sendo desobedecida pelo micro. Este programa tem porobjeti- 
vo elucidar este tipo de problema, a partir de um exemplo de- 
talhado. 

Em topografia, 6 comum uso de uma r^gua devidamente 
graduada, denominada Mira Falante, para obten9ao das distan- 
cias dos trechos a serem medidos. Os tres fios horizontais exis- 
tentes na luneta do Teodolito s5o projetados na Mira Falante, 
possibilitando as leituras do Flo Inferior (FI), Fio Medio (FM) 
e Fio Superior (FS). Na prdtica, essas leituras estaiao corretas 
quando a equa^ao FM = (FI + FS)/2 for verdadeira. Essa con- 
di9ao de igualdade pode ser testada pelo micro que detectara 
leituras erradas provenientes do campo. Para isso, muitos dos 
que empregam micros da linha Sinclair, na solu9ao desse tipo 
de problema. inicialmente, pensariam num trecho de programa 
como o da listagem 1 . Entretanto entre os dados de campo que 
serao testados pelo micro alguns surpreenderao o usuirio. 
Exemplo: 



dado n5 


FI 


FM 


FS 


1 


1 ,00 


2,00 


3,00 


2 


2,00 


2, 12 


2,24 



Ao rodar programa e alimentd-lo com dado niimero 1 , 
obter-se4 a mensagem LEITURA CORRETA. Ao pressionar 
novamente RUN e introduzir o dado niimero 2, o video exi- 



x^ 


DIM Fi:3. 


20 


DIM N5 1.3 .2.1 


jO 


-E"^ U% -.1) =-'FI" 


4-0 


^tT N5 1:2:1 ='FM" 


50 


LET N5 1.3:' =-FS" 


50 


FOP 1=1 TO 3 


70 


PRINT N$ i:i:t ; ■■ ■?'■ 


S0 


INPUT Fil! 


90 


'— L i' 


100 


ne:>::t I 


110 


l_ET FMC = 1. F 1. 1 ;i +f (, 3 1 J /2 


12Q 


IF FMC=Fi:2.i THEN GOTO 150 


130 


PRINT "FRkO NR LEITURh DR M 


IRh" 




140 


STOP 


150 


PRINT "i_EITURR CORRETh" 



Listagem 1 
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bir^ inesperadamente a mensagem ERRO NA LEITURA DA 

MIRA. Como (2.00 + 2,24)/2 = 2.12, a primeira rea9ao do 
usuario sera digitar PRINT FMC e ENTER. O resultado obtido 
sera de 2,12. Mas, digitando-se PRINT FMC-F (2) e ENTER. 
aparecer^ no video 9.3132257E-10, mostrando que o valor cal- 
culado nao i igual aquele fomecido ao micro. 

Para que o trecho do programa mencionado tome-se gen^ri- 
co a lodo conjunto de dados de campo, aslinhas 110 e 120 
deverao ser alteradas para; 



no LET F$ = STR$( {F{ 1 ) + F(3))/2) 
120 IF VAL F$=F(2) THEN GOTO 150 



dfi 



REFRESQUE AS MEMORIAS DE SEU MICRO COM 

MICRO FAN 



= VOCE MESMO INSTALA 




• Encaixa direfo na CPU - sem furos ou paratusos 

• Aumenta a vida iJtil da fonte microprocessador e memonas 

• Evita as paradas por superaquecimento 

• Duas lomadas adicionars para Itgacao de perilencos 

• Equipado com interruplor lummoso 

• Na cor original da Imha Apple 

• Garantido por 60 dias 

• Voce enconira MICROFAN na^ meihores loias do ramo 



MICRO FAN mil 



X 



Cx, Postal 819 - 13100 - Camomas ■ SP ■ Fone (0192) 47-1804 ^ 



a p pie apple a p p Ue apple a p p 1 e a p 



i REM 

2 REM 

3 RliM — 

4 REH 

5 REH 

6 ri:m 

7 RE-M 

8 REM 

9 REH 



"T e: h:::: ii h^^^i, h::> 'i;:> ihn u s i: «::;: .a d 



J o a q 1.x i 111 )■' e v e i r a 6 e 1 i v (? i i- a 

Bras ilia- DF 

MAXXX 



Este prograim vai simular um verdadeiro piano nos equipa- 
mentos compati'veis com o Apple, transformando duas fileiras 
de teclas desses micros em teclado musical. 

Na verdade, poderiam ate ter sido programados sons para 
todas as teclas, mas, para manter o posicionamento das notas 
em rela^ao aos teclados musicals, foram sonorizadas apenas 1 7 
teclas (fileiras A a +;e W a P). 

Apesar de escrito em BASIC, para faciiitar o use em versao 
cassete. o programa 6 totalmeme executado em Assembler, de 
modo a diminuir o tempo entre o acionamento das teclas e a 
respectiva resposta sonora. 

EM BASIC 

Na listagem em BASIC, as linhas 10 e 20 exibem, na tela, 
a correspondencia entre as teclas e as notas musicals. No caso 
de duas teclas, a segunda corresponde ^ mesma nota, uma oi- 
tava acima. 

Nas linhas 30 a 70 estffo os codigos, em decimal, das instru- 
90es do progratna Assembler. 

Na linha 80 6 carregado o programa Assembler, na mesma 
ordem em que os codigos foram escritos, com a instru9ao 
DATA (linhas 30 a 70). Os codigos sao posicionados do ende- 
reijo 768(300 hex) ao 954 (3BA hex), por meio dasinslru^Oes 
FOR ... NEXT, READ e POKE. Com a instruvSo CALL 841, o 
programa Assembler e acionado e as teclas estarSo sonorizadas. 
Para voltar ao BASIC, basta pressionar a tecla V. 

EM ASSEMBLER 

A execug5o do programa comefa no enderego 349 (841 
dec), com a chamada da subrotina FD35, que aguarda o acio- 
namento de tecla, A partir dai, pode-se resumir o "trabalho" 
do programa em: 

1. Verificar qual tecla foi pressionada, atrav^s da instru^ao 
C9 XX, sendo xx o codigo hexadecimal da tecla (a instru^fc 
C9 XX e complementada com FO yy, que indica o desvio); 

2. Atribuir um valor ao endereifo 6, de acordo com a tecla 
pressionada, para gerar a nota correspondente. valor zz e cri- 
ado com a instru9ao A9 zz e e atribuido ao endere90 6 com a 
instrugao 8D 06 00, que corresponde ao POKE 6, zz(endere- 
90s32Da 331); 

3. Atribuir o valor 38 ao endere^o 7, piara fixar a dura9ao 
da nota fendere90s 332 a 336); 

4. Emitir o som correspondente ao valor ^zz (endere90s 337 
a 348), reiniciando no ponto de origem, conforme salto condi- 
cional comandado nos endere^os 33D a 340. 

Fora isso. resta lembrar que a dura9ao das notas pode ser al- 
terada modificando-se o valor do endere9o 333. Quern quiser 



10 HOME : VTAB 5: PRINT TAB ( 5> 
"A-K ==> DO W-0 =-> DO 
#": PRINT : PRINT TAB( 5) "S 
-L ==> RE E-P ==> RE#" 
: PRINT : PRINT TAB( 5) "D-; 
="> MI F ==> FA": PRINT 

20 PRINT TAB( 5) "T ==> FA# 

G ==> SOL": PRINT : PRINT 
TAB< 5> "Y ==> SDL# H 
«> LA": PRINT : PRINT TAB< 
5) "U ==> LA# J ==> SI 
": VTAB 22 
30 DATA 169,194,76,47.3,169,153, 
76,47,3, 169, 162,76,47,3,169, 
145,76.47,3, 169, 128, 76. 47, 3, 

169. 114.76.47.3.169. 102.76.4 
7,3, 169.96,76,47.3 

40 DATA 169,86,76,47,3,169+76.14 
1.6,0, 169,56. 141,7,0, 173. 4B, 
192, 136, 20B,4, 198,7,240,8,20 

2.208.246. 166.6.76.55.3.32.5 
3,253,201, 187,240,221 

50 DATA 201,193,240,172,201,196, 
240, 173,201, 197,240, 174,201, 
198,240, 175,201, 199,240, 176, 
201,200,240, 177,201,202,240, 
178,201,203,240, 179 

60 DATA 201,204,240,180,201,207, 
240, 52, 201 , 208, 240. S3, 201 ,21 
1,240,54,201,212,240,20,201, 
213,240,21.201,215,240.22,20 
1,217,240,23,201,214,240,3 

70 DATA 76,73,3,96,169,137,76,47 
,3, 169, 108,76,47,3, 169, 183,7 
6,47.3, 169, 121,76,47,3. 169,9 
1,76,47,3. 169,81,76,47,3, 169 
, 172.76,47,3 

80 FOR A = 768 TO 954: READ B: POKE 
A,B: next : CALL 84 1 



0300 


A9 


C2 




LDA 


#$C2 


0342 


DO 


F6 


BNE 


S033A 


037C 


C9 


D3 


CMP 


#$D3 


0302 


4C 


2F 


03 


JMP 


S032F 


0344 


A6 


06 


LDX 


$06 


037E 


FO 


36 


BEQ 


S03B6 


0305 


A9 


99 




LDA 


#S99 


0346 


4C 


37 03 


JMP 


S0337 


0380 


C9 


D4 


CMP 


#$D4 


0307 


4C 


2F 


03 


JMP 


$032F 


0349 


20 


35 FD 


JSR 


SFD35 


0382 


FO 


14 


BEQ 


$0398 


030A 


A9 


A2 




LDA 


#$A2 


034C 


C9 


BB 


CMP 


#$BB 


0384 


C9 


D5 


CMP 


#$D5 


030C 


4C 


2F 


03 


JMP 


$032F 


034E 


FO 


DD 


BEQ 


$032D 


0386 


FO 


15 


BEQ 


$039D 


030F 


A9 


91 




LDA 


#$91 


0350 


C9 


CI 


CMP 


#$C1 


0388 


C9 


D7 


CMP 


#SD7 


0311 


4C 


2F 


03 


JMP 


S032F 


0352 


FO 


AC 


BEQ 


$0300 


038A 


FO 


16 


BEQ 


S03A2 


0314 


A9 


80 




LDA 


#580 


0354 


C9 


C4 


CMP 


#$C4 


038C 


C9 


D9 


CMP 


#$D9 


0316 


4C 


2F 


03 


JMP 


5032F 


0356 


FO 


AD 


BEQ 


$0305 


038E 


FO 


17 


BEQ 


S03A7 


0319 


A9 


72 




LDA 


#S72 


0358 


C9 


C5 


CMP 


#$C5 


0390 


C9 


D6 


CMP 


#?D6 


031B 


4C 


2F 


03 


JMP 


$032F 


035A 


FO 


AE 


BEQ 


$030A 


0392 


FO 


03 


BEQ 


S0397 


031E 


A9 


66 




LDA 


#S66 


035C 


C9 


C6 


CMP 


#$C6 


0394 


4C 


49 03 


JMP 


$0349 


0320 


4C 


2F 


03 


JMP 


S032F 


035E 


FO 


AF 


BEQ 


S030F 


0397 


60 




RTS 




0323 


A9 


60 




LDA 


#S60 


0360 


C9 


C7 


CMP 


*SC7 


0398 


A9 


89 


LDA 


#$89 


0325 


AC 


2F 


03 


JMP 


S032F 


0362 


FO 


BO 


BEQ 


$0314 


039A 


4C 


2F 03 


JMP 


S032F 


0328 


A9 


56 




LDA 


#S56 


0364 


C9 


C8 


CMP 


#$C8 


039D 


A9 


6C 


LDA 


#S6C 


032A 


4C 


2F 


03 


JMP 


S032F 


0366 


FO 


B1 


BEQ 


$0319 


039F 


4C 


2F 03 


JMP 


$032F 


032D 


A9 


4C 




LDA 


#S4C 


0368 


C9 


CA 


CMP 


#$CA 


3A2 


A9 


B7 


LDA 


#$B7 


032F 


8D 


06 


00 


STA 


$0006 


036A 


FO 


B2 


BEQ 


$031E 


03A4 


4C 


2F 03 


JMP 


S032F 


0332 


A9 


38 




LDA 


#S38 


036C 


C9 


CB 


CMP 


#$CB 


03A7 


A9 


79 


LDA 


#S79 


0334 


8D 


07 


00 


STA 


$0007 


036E 


FO 


B3 


BEQ 


$0323 


03A9 


4C 


2F 03 


JMP 


$032F 


0337 


AD 


30 


CO 


LDA 


$C030 


0370 


C9 


CC 


CMP 


#SCC 


03 AC 


A9 


5B 


LDA 


#$5B 


033A 


86 






DEY 




0372 


FO 


B4 


BEQ 


$0328 


03AE 


4C 


2F 03 


JMP 


$032F 


033B 


DO 


04 




BNE 


$0341 


0374 


C9 


CF 


CMP 


#$CF 


03B1 


A9 


51 


LDA 


#$51 


033D 


C6 


07 




DEC 


S07 


0376 


FO 


34 


BEQ 


$03AC 


03B3 


4C 


2F 03 


JMP 


$032F 


033F 


FO 


08 




BEQ 


$0349 


0378 


C9 


DO 


CMP 


*$D0 


3B6 


A9 


AC 


LDA 


#$AC 


0341 


CA 






DEX 




037A 


FO 


35 


BEQ 


S03B1 


03B8 


4C 


2F 03 


JMP 


$032F 



Listagem em Assembler 

faze-lo, basta modificar o codigo 56 da linha 40 do programa 
em BASIC (sequencia 1 69, 56, 1 41 ,7,0). 

Outro lernbrete: as rotinas de som utilizadas nas Unhas 337 
a 346, da listagem 2, sS'o as mesmas divulgadas por Rudolf 
Horner Junior, no programa "Rotinas de som e anima9ao gra- 
fica", publicado em MS n? 27. 



Finalmente, aqui vai um pequeno trecho "escrito em 
Apple". Experimente executa-lo e descubra qual e a musical 
H-Y-H-Y-H-YH 
S-S-D-T-G-H-L-K-U-L.U 

U-H-U-l^U-G-H-L-H-F _ 

W-W-W-W-A-W-D-S £ 





CBiia 



Banco lie negHGiQS. 

Em 5 vezes sem juros 



Excepcional desconto a vista 



TEMOS DRIVE E 
INTERFACE PI TK 2000 

GRAFIXMX80EMX100, 

JA VEM COM PLACA 

PI RESOLUQAO GRAFICA 



^ 

vv^ 



BRASILTRADE CENTER 



THE 
FIRST 
VIDEO 
CASSETE 
ENGLISH COURSE 

• Com 2 fitas de 3.30 hs. de duragao, um manual, um 
Ijvro de exerckio e um de texto voce e toda a sua 
(amilia aprenderao a falar ingles, a lingua universal. 

• Produzido a cores pela equipe da TV mais 
importante do Brasil. • Gravado em estudio e em 
extemas mostrando sempre cenas do nosso cotidiano. 

• Prego de langamento a vista com desconto 

Faqa-nos uma visita em qualquer um 
dos nossos endereqos: 

INFORMAQOES: TEL: 259-1299 

COMPUTER CAMPING i 
BTC VIAGENS E TURISMO 




Listagem em BASIC 



\v. Epitacio Pessoa. 280 (Esq. Vic. Piraja) — IP.^NFMA Tel.: (021) 259-1299 — Telex: l021) ^n->P BTr^p-RR 

Assemble. ;i. lO/lj. 112 (Ed. Candido Mendes) — CENTRO Tel.: 222-5343 

Av. das Americas. 4790 s/615 (Ceniro Profissional Barra Shopping) — BARRA Tel.: - "^l 

Rua 16 de Marco. 80 s/lj. 3 — PETR6P0LIS 

' )s Mineiros. f'5 s/102 — \ ■\l.HNC.'\ 



■p. 
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MICRO SISTEMAS. novembro/84 



h p h p h p h p h p h p h p h p h p h p h p 



1 


R£:m 


2 


REM 


3 


re:m 


4 


Rf:.M 


5 


Rlr:M 


6 


REM 


7 


REM 


B 


REM 


9 


REM 



O IL_I IF^ K.J> Ai ,^rj; 



Carlos Roge-rio Tonuss i 
R i be i rao Pr pt: o ~ SP 

HP 85 



Este programa foi desenvolvido para rodar em sistemas HP- 
85, visando diminuir o tempo gasto na confec9ao de grificos e 
cilciilos estatfsticos simples associados. Ele esti capacitado a 
tra^af at^ seis curvas com atd 30 pontes cada uma, constituin- 
do-se cada ponto num valor numerico e seu erro estatfstico. 

gr^ico a ser desenhado e padronizado, bastando poucos 
parametros para especific^-lo. A entrada de dados pode ser fei- 
ta de duas maneiras: no modo direto ou no modo cflculo. No 
direto, a rotina solicita a entrada dos valores dos pontos que 
comporao uma curva e seus respectivos erros. J^ no c^culo, o 
piograma pede os dados dos quais serSo tiiadas as madias e os 



erros padr5es, para entSb compor a curva. 

programa pode ser utUizado logo ap6s a tomada dos da- 
dos, transformando-os em madias e plotando-os em urn gr^- 
co. £ possi'vel, tamb^m, comandar a colocagao das marcas de 
erro de modo que a apresenta5ao final se organize da melhor 
maneira. Al^m disso, o programa imprune uma legenda para 
cada cuxva trafada, as quais sao especificadas per numeios. Os 
dados para o tra9ado das curvas sSo agrupados em uma mathz 
de 12 colunas por 30 linhas. Na primeira coluna estSo os pon- 
tos da curva 1 e na s^tima ficam os respectivos erros dos pon- 
tos, e assim sucessivamente para as outras curvas. 



1? 


P E K t i C- 'J F- '"' fl S ^. t -• C F *^ H -J £• : : i 


£05 


IF ^^=1 THEN 120S 




~ 


^-1 1 ,— . 


DISP "QLii^HTOS POHTOS Tl=wi^' h 


2.'<i 


op-^:cN 5Rse 1 




CUPV'P".:fi: INPUT PI 


3r- 


SHOP. ' ^'' ■'- 3t . il ■■■ . E '■ 6 '' 


229 


;-<3=i3^^-pi 


35 


Dlf*1 f1';3'3> 


230 


DISF "OQNTO" !^ INFU" F2 


a.y^ 


G'M USCZ21 -Z^Cliil. ''^Cl<jl vsZ 


249 


DI 5F " URlGP DC PO^-'TO" .~'l .W -■ 




2etl.\'*C2'91.. UJtPei 




HPUT K<::P2,PV? OISP "ERPG 00 


5)5 


ON k-EV# 1 . "D I Pc'O " 1QT0 I 3^ 




PONTO'- .:P2> ft INPUT K''P2 ■ P+t'^ 


f-t' 


On! KE^-** 2."CftLL: " GC^O 125 


25-5 


IF F2-'P1 THEN 23a 


-re 
1 _f 


r-i. Ui, ■■fS.AS- '.!■$ . ij* = " " 


T- *-, !-■■ 


IF P*^l THEN 490 


s? 


CLEPP *i KEY LRSEl 


ir^j 


CLERR J? DISP "ENTRE '"-QM Ur^ ■-? 


y5 


N = i5 




RLOR" e DISP -MRK PRPR P EI;-: 


36 


DI3F '* uISP '? DISP ■ RBv?!' . ■' T 




V" '? INPUT Y 




PRCfiDCP Dt CUPVFfS " 


2se 


DISP "QURHTRE DIt.'ISOES EK V" 


92 


BEEF :i30-53 5 WftlT 3-"3"^ 5 SEE 




;* INPUT D 




F 9^1 ^Ct * wJRIT 290 » BEEP' 7^- 


239 


DISP "MRLOf? INICIPL PRFR ^ 




.59 




IXO X" fe INPUT VI 


93 


BEEP =^a . 5© 1^ WRIT 3>3'? •? dEEF 


369 


DISP "INCREf^ENTn FRRR V-BL3 




!'=;£■ 3tit- 




P".:" INICIfli." 5 INFU"^ K2 


123 


GOTO !2i3 


310 


DISP' "FUNDO PPETO ■' V. OU BPR 


135 


N= : 




NC0-:2>'\i<i' INPUT C 


-3y 


CL£RP 1? DISP "EST>=t E' B CURV-' 


32^ 


IF C=2 THEN PEN -I ELSE PEN 




Fi MUMERO^' ' 5 IH--UT F 




J 


14y 


DISP "ENTPE COM Ur;P LEGEHDfi" 


1-2^ 


CLEhR <? GCLER-R 5 3CRLE -ii-3.. 1 




..'Ppjpp ESTn CUpyP ■ QUE "."Hh 




1 .. - •■: V .- ,- '} , ',' 




UL'PRPR'=:SE 29 CriPRCTERE?-^' 


348 


XRxis d.. 109/Pi , tev3,-Fi , 1 la 


15€' 


IF P=l THEN IHPIJT ZJ 


35ei 


^'R >-. I E 1 ee .-'P 1 - 1 S ■ Y y D .. e .- t 


l€'id 


XF P=2 THEN INPUT V± 


360 


IF V-D> = 1 RND V/Di'10 OR V--D-.: 


1 rp 


ir P=3 THEN INPUT Wf 




1 THEN F=l 


15i3 


IF F=4 THEN INPUT >i$ 


376 


I F Y ^-D > = 1 « AND Y'-'D < 1 0tf THEN 


19Ci 


IF F=5 THEH INPUT '•■'S' 




F=1S 


2d<d 


IF F=b THEN INPUT U* 


339 


IF Y--D>==18e fiHD Y.-D<13@0 T¥<E 





N F^iet* 




e7e IF Z3-#'"" THEN PRINT 




'■ zs 


39^ 


IF Y.-D> = 19t30 "^HEH "=:oee 




388 IF Y*#°" THEN PRINT 


II ~i 


■' , v-5 


4CiG'- 


FOP I = Y-D ^0 '■:■-'-. ^-T 2"^EP ^ 


-■ ' 


ese IF Wt#"" THEN PRINT 


■' T 


•^ Ui 


41^3 


MOWE 19i3-'-Pl-2e, I 




988 IF X$#^" -"HEN PRINT 


■'4 


V X* 


426 


LRBEL VRL*'::i--F-^ 




918 IF V*#"" THEN PRINT 


'■ ^ 


" . v.'i 


433 


NEXT r 




928 IF U$#"=' THEN PRINT 


■ -^ 


'■ .■ US 


4Ae 


FOR 1 = 198-- PI TO le-J STEP 
- F 1 


l!-?8 


938 GOTO r5^ 

9 4 e- I D R R f-l 8 . K ( J ■ F -<- 6 : ■ 






^5 "3 


MOVE I.. -'.;y- 15> 




•'?'5^ IM0'.;E -1.-8 iS IDRRt-j 


i 8 




4ti0 


LRBtL ".yRi.f ■Xl > 




'968 RETURN 






470 


Xl=Xl+X2 




STib HOVE X. K'- J .P> 






4 9e 


NEX' I 




9S8 IDRRk' 8. -K<J.. P-*-6) 






49 y 


X = 5 




998 IMOVE -i.-8 * IDRRlM I 


1.8 




50y 


^>U^.'E X3.K^:' i -F > 




1888 RETURN 






51 e 


FOP i=! ^0 PI 




lele GOSUB 948 






5219 


X=X+X3 




1828 GOSUP 978 






530 


DPftW X.-K-:i.. P;- 




1938 RETURN 






54a 


NEXT I 




1288 CLERR * DISP "OURN" 


'J -D 


-ONTO 


55Ci 


inok/E 5,e 




S TERR R CUP'v'P'^ -^ 


IN^'UT Pi 1 


56^ 


LRBEL vRL*<P^i 




1218 X3=I88.-''P1 






57^ 


flOWt €» ■ - ■-. ■( '■ J- •■ 




1228 FOR 1=1 TO PI 






555 


LRBEL "F^e-ssione con* '■' 




1230 CLERR <k OISP "QURN" 


"03 


DfiDOS 


59Ci 


PR USE 




PRRR PONTO " ■ I : S 


INPUT 01 1 


66-3 


DISP 'REFRZER R CuRVR<i>' 


^ "T 


1249 FOP j=i TG 01 








RflCRP 0UTRR<2>'' - ' CDLOLRR 


- E 


1258 DISF "DROH" J.fr INPliT 


(*! . J :■ 




PR0--'3> " 




1268 NEX' J 






6ie 


INPUT Pi 




12';^8 11 = 8 






b29 


ON R i^OTO ^7^.138.-630 




1288 "OP J=i TO CI 






e3ei 


CLEPF 




1298 K.l=ri+M':j> 






64 9 


DISP ^'flRRT-R DE ERRO"', ''qf' 


!^p 


1388 NEXT J 








E RBFIXG OR CURVR '1 - ''' 'RC 


I MR 


1318 M2=?^i-^D1 








D R C U R '.; R ■: 2 > " -i " R B R I >\ D B 


CUR 


1328 S=8 








\^9.<.l' " 




1338 FOR J=i TO 01 






^ee 


"^OR 1 = 1 ~kS P 




1348 S = S * ■: n 2 - tl -' { --^ "1 ■-■ 2 






7iri 


DISP "CURV-'R"; I (i INPUT E '- 


I.' 


1345 NEX^ J 






723 


NEX" I 




1358 Sl = SQR';5.-vDl-i:> 






73e 


FOP 1=1 TO P 




1368 E1=S1-SQR(:DI> 






74i3 


X = ! < 3 




1378 k<::i.-F :.'=M2 






^59' 


FOR J=I "0 PI 




1338 KCI P+S>=E1 






^69 


riOV'E X,. KCJ.- I> 




i3&l PRINT ^^CUR^.^R" ; P 






:^s« 


ON t'!i:' GOSUB 191*3.. ?4S ^~ 


'8 


1382 PRINT "PONTO". 1/ " 1 * 






79e 


X = X-^K3 




135 3 FOR J=i TO Dl 






S0^ 


NEXT J 




1334 PRINT ^( .\'> : » : " , 






eie 


HEX' I 




1385 NEXT J 






915 


WRIT 1898 




1386 PRINT ''MEDIR^ "; l<^' I - 


P ;,. . 


"ERRO 


329 


CLERR 1? DISP "QUER COPIRF 
GRRFICO S.'N".e INPUT R$ 





- " . V ;■ I , F + F. ■■■ 
1387 PRINT 






y33 


IF R^Cl. ll^-N" THEN 688 




1398 NEXT I 






646 


PR I HT TfiE. ( 1 2 ;, ; " Y MRX= '' ; Y 




14 88 GOTO 260 






858 


GRRPK » GCLERR -r^'ie>-i» 


"Z'J? 


1418 END 






363 


PRINT .? PRINT iS PRINT 











1 



Curvffs 




MAOS A OBRA! 

Estamos esperando sua colaboragao. Faga um jogo bem interessante e divertido e envies para 

MICRO SISTEMAS. E s6 enviar um lexto explicativo, tirar uma listagem bem leglvel e enviar para nds. 

E nao se esquega de colocar seu name . complete . enderego e telefone de coritato. 

Av. Presidente Wilson, 165/grupo R. Oliveira Dias, 1 53, Jardim Paulista, 

1210, Centre Sao Paulo, SP, CEP 01433 - 



^.VMicro 
Sistemas 



Rio de Janeiro, RJ, CEP 20030 - 
tel.: (021) 262-5259 



tels.: (011)853-7758.881-5668 
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<:> i n c 1. a i r b i n t; 1 a i i-" s i n c I "a i !'■ s i n c 
tM* H «** *nHHHHH^ ** t* ******# *HHHHH* ** *t **# i* « *t t* ** *t » *t ** *HMt ** *n* fHHMi ** M *t ^ « H « ^* t4 *i « *t ** W «« tt *Ht tt « tt tt H t 



i REM 

2 REn 

3 REM- 

4 REM 

5 REM 

6 REM 
:/ REM 
« REM 
9 REM 



i: B II.. .H g-'B :ii:: ^'J! ir"-;. c:: n^:^). c> x r-Ji -r f;: b^:!' ni le-^^ 



Sao Bernardo cio 

(■;p 200 



Este programa possibilita, atrav^s de 
um f^cil e pratico m^todo, o cdlculoda 
quantidade de ]uinin^as necessdiias i 
iliunina9ao de ireas intemas, bastando, 
para isso, que se disponha de qualquer 
tabela de fator de utiliza95o (U) que 
fornega o fator exato ao tipo de liunini- 
ria a ser empregada no projeto. 

Para esse programa, utilizamos uma 
tabela elaborada pela Philips que, al^m 
de apresentar o fator de utiiizafSo (U) 
em fim9ao do fator local (K) e das re- 
flex5es madias das paredes, fornece tam- 
b^m as tabelas referentes ao ni'vel de ilu- 
minafao (E) em fun?!© do tipo de ativi- 
dade visual a ser exercida no local, bem 
como fator de deprecia^ao (D) devido 
a poeira que se acumula sobre os-Bquipa- 
mentos e lampadas, fazendo com que 
estas fome^am menor quantidade de luz 
ao ambiente de trabalho. De acordo 
com o tipo de lampada a sei utilizada, 
temos ainda outra tabela que nos forne- 
ceo fluxo luminoso (lumen) da lampada. 

Vejamos agora um exemplo ilustrati- 
vo do programa, que vai possibilitar ao 
usuario acompanhar todos os passos do 
mesmo. 

Estes sSo OS dados do programa— 
exemplo: 

. LOCAL: escrit6rio 
, COMPRIMENTO: 15 metros 
.LARGURA:5metros 
. ALTURA: 2.2 metros (j^ descontados 
0.8 metros referentes ao piano de traba- 
lho, no caso, uma mesa) 
. LUMINARLV: tipo TCS 662, de duas 
lampadas 
. LAMPADA; tipo fluorescente (cor 
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;an)f>o 



SR 



K 


751 


731 


71 1 


551 


531 


51 1 


331 


311 


000 


0,6 


0,20 


0, 16 


0,14 


0,19 


0,16 


0,13 


0, 15 


0,13 


0, 1 1 


0,8 


0,25 


0,21 


0,18 


0,24 


0,20 


0,18 


0, 19 


0, 17 


0,15 


1,0 


0,28 


0,25 


0,22 


0,27 


0,23 


0,21 


0,22 


0,20 


0,18 


1,2 


0,32 


0,28 


0,25 


0,30 


0,27 


0,24 


0,26 


0,23 


0,21 


1,5 


0,34 


0,31 


0,28 


0,32 


0,29 


0,27 


0,28 


0,26 


0,24 


2,0 


0,38 


0,36 


0,32 


0,36 


0,33 


0,31 


0,31 


0,30 


0,27 


2,5 


0,40 


0,37 


0,35 


0,38 


0,36 


0,34 


0,34 


0,32 


0,30 


3,0 


0,42 


0,39 


0,37 


0,40 


0,38 


0,36 


0,36 


0,34 


0,31 


4,0 


0,44 


0,42 


0,40 


0,42 


0,40 


0,38 


0,38 


0,37 


0,34 


5,0 


0,46 


0,44 


0,42 


0,43 


0,42 


0,40 


0,40 


0,39 


0,36 



Figura 1 



Minimo para ambiente de trabalho 


150 lux 


Tarefas visuals simples e variadas 
(trabalho brute) 


500-250 lux 


Observagoes continuas de detalhes 
medics e fines ( trabalhe normal ) 


1 .000-500 lux 


Tarefas visuais continuas e precisas 
{trabalho fine, por ex. desenho) 


2.000-1 .000 lax 


Trabalho muito fine {geralmente 
iluminagao local, ex.: conserto de 

relogio) 


acima de 
2.000 lux 



Figura 2 



Ambiente 


D 


limpo 


0,9 


medio 


0,8 


su jo 


0,6 



Figura 3 



luz do dia), modelo TL 65/54, de 65 
watts cada uma. 

O primeiro cSlculo aserdeterminado, 
de acordo com o programa, 6 o fator do 
local (K). Este ^ facilmente obtido intro- 
duzindo-se os dados requeridos pelo mi- 
ao. resultado a ser obtido deve ser (K) 
-1.7. 

Para obtermos o fator de utUiza^So 
(U) vamos supor que o teto do escritd- 
no e as paredes sejam de cor clara e o 
piso de cor escura. Teremos obtido en- 

MICROSISTBMAS. novembro/84 



FLUORESCENTES 


TLD 


15/54 


eoo 


TLD 


15/53 


900 


TL 


15/54 


690 


TLRS 


20/54 


1 .000 


TLRS 


20/33 


1 .120 


TLRS 


20/37 


650 


TLRS 


20/27 


650 


TLRS 


20/34 


760 


TLD 


30/54 


1 .900 


TLD 


30/33 


2.250 


TLD 


30/34 


1 .500 


TLRS 


40/54 


2.550 


TLRS 


40/33 


3.000 


TLRS 


40/37 


1 .700 


TLRS 


40/27 


1 .700 


TLRS 


40/34 


2.020 


TL 


65/54 


4.000 


TL 


65/33 


4.950 


TL 


65/37 


2.850 


TL 


65/27 


2.800 


TL 


65/34 


3.200 


TL 


65/57 


2.800 


TLRS 


1 10/54 


7.600 


TLRS 


1 10/33 


8.900 



Figura 4 



tao, atravds da tabela apresentada pelo 
micro, um fndice de reflexSo igual a 751 . 
Sendo assim, temos, a partir da tabela 
da figura 1, para (K) =2.0 (valor logo 
acima ao obtido (1 .7)) e fndice de refle- 
xao igual a 751, um valor do fator de 
utiliza^ao (U) igual a 0.38. 

O segundo cdlculo a ser detetminado 
6 o fluxo total (F). Para tal, devemos es- 
colher o nfvel de ilumina^ao (E), de 
acordo com a tabela da figura 2, e o fa- 
tor de deprecia9ao (D), de acordo com a 
figura 3. No caso, por tratar-se de um es- 
crit6rio, optamos por um nivel de ilu- 
mina?ao (E) = 500 lux; e um fator (D) 
igual a 0.9. Desta maneira, chegamos ao 
fluxo total (F) = 109.649 lumens. 

Flnalmente, para chegarmos ao resul- 
tado do numero de lumindrias (N) de- 
vemos informar ao micro o numero de 
lumens fomecido por este tipo de ISm- 
pada, atrav^s da tabela da figura 4. Nes- 
te caso, temos 4.000 lumens para a TL 
65/54 . £ necess^o informar ainda o nU- 
mero de lampadas da Iimiin^a, no caso, 
duas. Desta forma, chegamos a um nu- 
mero de luminarias igual a 13. Confira... 
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= =PINT 

INTERNA" 

10 PRINT 



■ChlCULO de ILUMINflCfi 



INTDOD. NIVEL DE ILU 



15 PRINT ■■!» CRLCULO DO FflTOP 
DO LOCAL ir I ■■ 

20 PRINT 

25 PRINT E5TE FftTOR DEPENDE : 
RS DIMEN50E5DO LOCfiL" 

30 PRINT 

35 PRINT ■INTRODUZPl COMPRIME 
NTO" 

*0 INPUT C 

45 PRINT ■■COMPRIMENTOs": C, ■■ ME 
TR03' 

50 PRINT 

55 PRINT "INTPODUZR A LflRGURfi' 

60 INPUT L 

65 PRINT -LRRGURfls'' . L, ■' METROS 

73 PRINT 

"5 PRINT INTPQDUZfl R flLTURfi D 
A LUMINRRIR- 

30 PRINT EM PELflCflO flO PLflNO 
DE TPfiBRLHO' 
35 INPUT fl 

90 PRINT ■■flLTURfi = 'M=i, ■■ METROS' 
95 LET h;=C*L.- I tC + Ll *fi) 
100 PRINT 

105 PRINT 'FflTOR DO LOCAL IK' =" 
, t 
110 PRINT 

115 PRINT ■■ ANOTE O UflLOP DE "■ 
1 OBTIDO" 

120 PRINT " PflRfl CONTINUflR flPEP 
TE 5 E ENTER" 
125 INPUT 2» 

130 IF Z$^>■'5■' THEN GOTO 125 
135 CL5 

200 PRINT ■ S» CfiLCULO DO FRTOR 
DE UTILIZR- COO tUI" 
205 PRINT 

210 PRINT ■■ P SUR OBTENCRO U 
5URPI0 DEUE- 
515 PRINT 'DISPOR DE UMR TflSELfi 



220 PRINT 


■ hTRRUES DELR OBTEMO 


5 TRL FfiTOR 




225 ORINT 


iLi; EM FUNCRO DE IK- 


■JR OBTIDO E" 


230 PRINT 


DRS REFLEX0E5 MEDIfiS 


C'fl5 CfiPEDE 


t" 


240 CCINT 


■ REPRESENTRMOS fl REF 


LE/RO PCR" 




243 PRINT 


■MEIO DE 3 RLGRRI5M05 


250 PRINT 


■ 1" REFERE-5E flO "^ 


ETO" 




255 PRINT 


■ =■ REFERE-5E R PR 


REDE" 




250 PRINT 


■ 3" REFERE-5E RO P 



*Dfl E50UERDR p/ R DI 
CRDR UM DES5E5 RlGRP 
CORRESPONDE R UM IND 
REFLEXflO IPOR CENTOj 

I I " 



ISO- 

S65 PRINT 
REITR + -' 

270 PRINT 
I5M0S , ■■ 

£75 PRINT 
ICE DE'' 

23© PRINT 
.VEJfl " 

285 PRINT "BRRNCOs? '70 

290 PRINT -CLAROsS (50* 

295 PRINT "MEOIOsS '.30 • 

300 PRINT "ESCUROsl 1 10 »"- , i " 

305 PRINT "PARR CONTINUAR APERT 
E 5 E ENTER" 

310 INPUT ZS 

315 IF ZS="5" THEN CL5 

320 PRINT -COMO JA TEMOS DETERM 
INRDO" 

325 PRINT "0 FRTOR DO LOCfiL (Ki 

E «5" 

330 PRINT "PEFLEXOES MEDIRS. DE 
TEMOS" 

335 PRINT "RTPfiUES DE SIMPLES L 
EITURR" 

340 PRINT 'DA TRBELR . O FATOR D 
E UTI-'' 

345 PRINT ■■LIZflCfiO lUI PPOCUPRE' 
0. ■' 

350 PRINT 

355 PRINT "RNOTE yflLOB DE lU' 

LIDO. ■■ 

360 ORIMT ■■psRPi CONTINURR flPERT 
E 3 E ENTER" 

365 INPUT ZS 

370 IF 2*=-S' THEN CLS 

400 PRINT -^ CRLCULO DO FLU^O 
TOTAL IF) " 

405 PRINT 

410 PRINT -INTRODUZfi COMPRIME 
NTO C" 

415 INPUT C 

420 PRINT ■■COMPRIMEnTO= ' . C, "MPT 
R05" 

425 PRINT 

430 PRINT ■ INTRODUZR fl LRRGUR" 

435 INPUT L 
440 PRINT "LflRGUPfl = '' 
445 PRINT 

45C PRINT ■ INTRODUZR 
C R Z.'- ' ' 
455 INPUT D 

460 PRINT "DEPRECIflCflO C=",D 
4 65 PRINT 

470 PRINT "INTRODUZR FRTOP ^U 
LIDO ■ 



■■METROS" 
DEPRECIA 



Cdlculo de liuminagdo Interna 



430 PRINT 

435 PRINT 

490 PRINT 
MINACRO IE' 

495 INPUT E 

500 PRINT ■NIi.jEL de ILUMINACAO 
lEi = E "LU- ■■ 

505 LET F=C*L*e/ iU*Di 

510 PRINT 

515 PRINT "FLUXO TOTAL IFl=".F, 
■LUMENS" 

520 PRINT "RNOTE O UALOR DE iF; 

OBTIDO" 

525 PRINT 

530 PRINT "PARA CONTINURR APERT 
E S E ENTER' 

535 INPUT ZS 

540 IF ZS='S' THEN CLS 

600 PRINT "4» CALCULC DO N» DE 
LUMINARIAS INI " 

605 PRINT 

610 PRINT "INTRODUZR rJ» DE LU 
MENS DA'^ 

615 PRINT ' LAMPRDA A SER USADA 
MEDIAN- ■ 

620 PRINT "IE TRBELR DE FLUXO L 
UMINOSO^^ 

625 INPUT X 

S30 PRINT ■'> = ", X," LUMENS^' 

635 PRINT 

640 PRINT INTRODUZR N" DE 
MPRDAS DE^^ 

645 PRINT "CRDR LUMINRRIfl ll 
3 OU 4 Ti- 
es© INPUT V 

655 PRINT -,=",»-.■" LRMPRDAS" 

660 PRINT 

665 LET N=INT iF/(X*YIJ 

670 FOP 0=1 TO 5 

675 PRINT AT 12 ,0; ■Ns" , N, 9 



LH 

,2 . 



680 PRINT RT 12 ,0 : ■■N = " , N. " LUMI 
NARIRS^^ 

635 NEXT 

690 PRINT 

695 PRINT "OUANTO fiO ESPRCRMEfJT 
DAS" 

700 PRINT "LUMlNfiRIRS. DEIXRM05 

R CRI-^' 

705 PRINT -TEPID DO USUARIO DE5 
DE OUE^' 

710 PRINT ESTE FRCA USO DO BOM 

SENSO-' 

715 PRINT 

720 PRINT ■ **MhOS fi OBRA-*-*' 



m 







.<>" 



-vS"^ 



c- O* ."O^ <^^ 



o 



w^ 



^^ 



v^^' 



Av. do Contomo, 5826 /3<! andar 

— Savassi — Belo Horlzonte — 

PABX (031) — 223-6000 




i:rs 80 t:rs 80 trs 80 t:rs 80 i.rs 



Rr£M 
REM 
REM — 
REM 

Rf::M 

REM 
REM 

REM 
REM 
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CLAPPYLANQ 
OTIUNITRDN 

EEXPUCA: 



Com este programa e poss/vel se obter o calendario de urn 
ano completo, compreendido entre o inlervalo de 1 900 a 1 999 
e determinado pelos dois algarismos da dezena do ano deseja- 



do. Por exemplo: para 1984, entrar apenas com 84, e assim 
per diante... 



6 '«M«»««K«MMWWNffffM«K*H««IIN«««N)t»«M»M«ltHM«M« 

7 '»«« PROGRAMA C A L E N D A 
RIO «*« 

8 'Mw« POR ROSANA GOMES 

»*» 

9 '»»»»«»»»»•«»*»»«»•*»«»«»»»#«»««»«»««••»«» 

10 CLEAR 200Q 

15 DIM M5(t2)!DIM DX<12> 

20 N4=" JANEIROFEVEREIRO MARCO ABRIL 
HAIO JUNHO JUL HO AGOSTO SETEMBRO 
OUTUBRO NOyEMBRO DEZEMBRO " 
30 FOR 1=1 TO 12 
40 READ D%CI) 
50 NEXT I 

60 DATA 31,28,31,30,31,30,31,31,30,31,30,31 

61 CLS:PRINT:PRINT 

62 PR I NT"»M»»*n*««K»»«««»K»*»««»«»* *****»»*•* 

65 PRINT"* PROGRAMA C A L E N 
D A R I *" 

66 PRINT"» PARA QUALQUER ANO DO 
SECULO XX *" 

67 PRINT"»«WW)(WWMfftt«HHHKM»«««KWK««««MMttM««KN 

im**it*inmint »****»*" 

68 PRINTSPRINT 

69 PRINT" PREPARE A IMPREBSORA, APERTE <EN 
TER> QUANDO ESTIVER PRONTA" 

70 INPUT C 

75 INPUT" QUE ANO QUER";AZ 
80 LPRINT:LPRINT" 

CALENDARIO - SECULO XX" 
B5 PRINT" AGUARDE" 
90 LPRINT 
100 R=0 

110 GOSUB 1000 
120 IF R=l THEN PRINT"ANO IMPOSSIWEL ,ESCOLHA 

0UTR0":CLS:D0T0 75 
130 IF B%=0 THEN DZ{2)=29 ELSE D%(2)=28 
140 N=2+(AX-i)«365+INTC<AX-l>/4) 
150 GOSUB 2000 
160 A4=STR*<AX) 
170 LPRINT" 

ANO DE ";RIGHTI<"0"+MIDS(AI,2) ,2) 
180 LPRINT 
i90 L=l 



200 1=1 

210 GOSUB 3000 

220 FOR J=l TO 4 

230 FOR S=l TO 6 

240 GOSUB 4000 

250 L=L+21 

260 LPRINT 

270 NEXT S 

280 L=i 

290 1=1+3 

300 IF I=<10 THEN GOSUB 3000 

310 NEXT J 

320 PRINT" FINAL ":END 

999 ' ROTINA P/ TESTAR DATA 

1000 IF AX<D OR AX>99 THEN R=i 
iOiO BX=AX-CINT(A:^-/4)*4> 

1020 RETURN 

1999 ' ROTINA P/ CALCULAR DIAS 

2000 FOR 1=1 TO 12 
2010 N=N"(INTCN/7)X7> 

2020 M!l(I>=STRlNG*fN«3," ") 

2030 FOR T=l TO 9 

2040 M%<I)=M4{I>+" "+STR%(T) 

2050 NEXT T 

2060 FOR T=10 TO DX(I) 

2070 M%( I )=M%< I)+STR*<T) 

2080 NEXT T 

2090 M9.(I)=Ml(I)+STRlNGft(40," ") 

2100 N=N+D/:(I) 

2110 NEXT I 

2120 RETURN 

2999 ' ROTINA DE IMPRESSAO 

3000 ES=" "+STRING5( 20, "»">+" " 
3010 5t=" DSTQQSS 
3015 LPRINT:LPRINT 

3020 LPRINT TAB (8 ) ;MID%(NSi, (I-l )*9+i , 9 ) ; TAB < 

32>;MID5<N4,<I)»9+i,9);TAB(58);MID4(N%,(I+i) 

»(9+l,9) 

3030 LPRINT Et;E%;El 

3040 LPRINT S%;S5;SS 

3050 LPRINT E*;E%jEt 

3060 RETURN 

3999 ' ROTINA PARA IMPRESSAO DE DIAS 

4000 FOR K=I TO 1+2 

4010 LPRINT;" ";HID4(M%<K > , L ,21 ) j" "j 
4020 NEXT K 
4030 RETURN 




ILQUEIl 

DIZERTEOADO 
MTEUGENTE. 



Calendario 
52 



TI e mais novo 
microcomputador da 
Unitron. 

Ele tern um mi- 
croprocessador 6504 
e um teclado 
inteligente. Isto e. 



um teclado gerador 
de caracteres para a 
lingua portuguesa. 
Veja o que este 
teclado pode fazer : 

Um. Programa9ao 
de fungoes especiais 



em qualquer tecla. 

Dois. Redefinigao 
das posigoes da tecla 
pelo proprio usuario. 

Tres.Modode 
operagao igual a 
maquina de escrever. 



Quatro. Repetigao 
automatica de carac- 
teres. 

Cinco. Diagnostico 
de teste automatico 
ao ligar. 

Venha conhecer o 
TI pessoalmente na 
Clappy ou solicite a 
visiia de um Consultor 
Tecnico Clappy no 
seu escritono. 

Alias, na Clappy 
voce encontra tudo o 
que precisa em 
microcomputadores, 
perifericos, suprimen- 
cos, softwares. Alem 
de cursos proprios de 
programagao e 
operagao, assistencia 
tecnica, implantagao 
e instalagao de siste- 
mas. E mais. 

Aplicativos 
conierciais: contabili- 
dade, controle de 
estoque, folha de 
pagamentos, contas a 
pagar e a receber. 

Aplicativos de 
apoio: planilha 
f inanceira, processa- 
mento de dados 
mala direta, cadastro 
e cpntrole financeiro, 
graficos, etc. 

Seja por venda, 
seja por leasing, 
ninguem pode Tazer 
um preco melhor do 
que a Clappy. 

unitron 

Gappy 

Centre: Av. Rio Branco, 12 - 

loja e sobreloja. 

Tel.: (021)253-3395 

Centre: R. Sete de Setembro, 

88- loja Q (galena) 

Tel.: (021)222-5517/222-5721 

Copacabana: Rua Pompeu 

Loureiro, 99. 

Tel.: (021)257-4398/236-7175 

Aberta diariamente das 
10 ^s 20 horas e aos 
sabados das 9 as 14 horas. 
Estacionamento proprio. 

Assistencia Tecruca : 
234-9929/234-1015 

Entregamos em todo 
Brasii pelo reembolso Varig. 
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Si i n c 1 a i r s i i"i c I a i r s'\ n c: I a \ r s\ i\ c. , 



1 REM 

2 REM 

3 REM-- 
A REM 

5 REM 

6 REM 
/ REM 
B REM 
9 REM 



ii;:> ii:;;:; e^ ih:: h-sI' ii-hi h^-^h m h:> i;::i' S'-i i;:> «'■■■« :]i: n:::: r <:> 



A I" ni a n cl o <r> c: a r C a v a n h a 
R i o cle Jant? i r o ~ R J 

Tl< 20GQ 



i I h c) e I-" e r II a n cl cj M » R o ;■; o 6 a M o t: t a 



i. 


REM 


2 


REM 


3 


REM 


4 


REM 


f;; 


REM 


6 


REM 


7 


REM 


(3 


REM 


<; 


REM 



c: tf^* I c: iJ I <> CK i;~: M i;£ ^4! c:: n: n-ii k- m t" o st 



Robert: o clos Sant:c)S S i 1 va 
R i o dc: Jane I ro ■■- R J 

TK 85 



Solte a sua imagina^ao e saia desenhando na tela do seu mi- 
cro, com este programa. 

As opfoes que voce tern sao: mudar a cor do desenho, apa- 
gar e posicionar a coordenada (x) e a abscissa (y). 

Para desenhar, o usuirio utiliza as seguintes teclas: 
. 1 — para cima 
. 2 - para baixo 
. 3 — para a diieita 




4 — para a esquerda 

5 — em diagonal, para cima, a direita 

6 - em diagonal, para cima, a esquerda 

7 - em diagonal, para baixo, a esquerda 

8 — em diagonal, para baixo, i direita 



to REM DEBENHAOOR 

11 REM PORt ARMANDO D. CAVANHA FILHO 



E FERr4ANDO M. ROXO DA HOTTA 



15 

20 
30 
33 
33 
36 



QOSUB 20OO0 

TEKT 1 HOME 

HQR 

HCDLOR - 3 
A » OiB - 3 

yTAB 21: PRINT 
4 3"i PRINT ■• 



& 1 5-1 

7 2 8" 



37 VTAB 21 1 HTAB 13: PRINT ■'9-MUDANCA 
DE CDR 4>APAGA" 



VTAB 23i HTAB 
.. Y . ..,Y|.. , 

" COR - "(3( 



40 K ■ 140iY = BOl 
43 HTAB 22t PRINT 
50 HTAB 32i PRINT 
70 X - 140tY - BO 
87 HPLOT X,Y 
58 SOUND A • 30,e 

90 CALL 7681 A - PEEK (767) - 

91 IFA<10RA>9 GOTO 90 

100 ON A GOTO 1000,2000,3000,4000,500 
O , 6000 , 7000 , 8000 , 9000 
110 GOTO 90 



15i PRINT "X 
I 



■jX| 



176 



lOOO 
200O 
3000 
40O0 

aooo 

60OO 

7000 

8000 

9000 

9005 

9010 

9020 

9030 

lOOOO 

Xf" 



ll 

1: 
li 
ll 

1: X 



GOTO 10000 
GOTO 10000 
GOTO 10000 
GOTO 10000 

X ♦ It GOTO 



lOOOO 
lOOOO 
10000 
1 0000 
- 176 



- 1 1 X - X - 1 1 GOTO 

- Y ♦ ItX - X - ll GOTO 

- Y *■ 1 1 X =t X + 1 : GOTO 
CALL 768 tB - PEEK <767) 
IF S < 1 OR B > 6 THEN 9000 

HCOLOR ■= Bi VTAB 23i HTAB 32: PRINT " CC 
CALL 76Bi IF PEEK (7671 < > GOTO 9020 
GOTO 90 
VTAB 23i HTAB 15i PRINT " X - "i 
|t HTAB 22i PRINT " V " "iV 



■iBi 



278 OR Y < I OR 



I " "I 

10005 IF X < 1 OR X 

Y > ISB THEN 90 

10010 GOTO 87 

20000 FDR A - 768 TO 782 

20010 READ Bt POKE A,B 

20020 NEXT t RETURN 

20030 DATA 32,67, 240 ,144,4,141, 255 , 2 , 

?6 , 1 69 , O , I 4 1 , 25S ,2,96 



Desenhando no Micro 



O programa Cdlculo de Vencimentos 6 util para aplica^oes 
comerciais, podendo calcular uma determinada data de paga- 
mento, baseado apenas na data de entrada e no prazo forneci- 
dos pelo usuario. Neste programa, o prazo fornecido so pode 
ser em dias, mas ele poder^ ser adaptado para aceitar tamb^m 
prazos em meses ou-em anos, 

Apos o usuario fomecer a data e o prazo, o programa dimi- 
nui o dia da data de entrada do total de dias do mes de entrada 
(linha 160). Este total e definido na sub-rotina que come^a na 
linha 500. Na linha 1 70, o resultado da subtragao e diminuido 
do prazo, Se o resultado desta ultima opera9ao, contido na va- 
ri^vel R2, for menor ou igual a 0, o fluxo de processamento 
passar^ da linha 180 para a linha 200, onde o dia do vencimen- 
to sera computado como a soma do dia da data de entrada 
mais o prazo; o mes e o ano serao os mesmos da data de entra- 
da. 

Caso R2 seja maior que 0, o fluxo ser^ desviado para a sub- 
rotina 600, que somari 1 ao mes e ao ano (caso o mes seja 



maior que 12), atrav^s das linhas 600, 610, 620 e 630. Na li- 
nha 640 temos o desvio para a sub-rotina 500, que define o to- 
tal de dias do mes corrente. Este numero de diase diminuido 
da variavel R2 e o resultado € jogado na vari^vel RI (linha 
650). Se a condi^ao da linha 660 (Rl < ou RI = 0) for satis- 
feita, dia do vencimento sera computado, o mes e o ano da 
data de vencimento serao os correntes e o programa saira da 
sub-rotina. Caso a condi^ao nao seja satisfeira, joga-se Rl em 
R2 (linha 690) e o fluxo voltara para o ini'cio da sub-rotina 
(linha 700), repetindo-se todo o processo ate que a condi^^o 
da linha 660 seja satisfeita. 

Esta descri^ao do funcionamento do programa demonstra 
apenas o processo utilizado para a obten9ao da data de venci- 
mento e as linhas do programa relacionadas diretamente com 
ele. O processamento principal do programa, entre as linhas 
115 e 215, 6 feito sob o mode FAST, e na linha 250, a men- 
sagem e escrita com o cursor no modo GRAPHICS, para se 
obter o efeito pisca-pisca. programa roda em equipamen- 
tosda Unha Sinclair, com 16 Kb de RAM. 



10 


C^EM C 


20 


REM P 


30 


PEM !..■ 


40 


CL5 


50 


LET D 


60 


^RINT 


i=iTh r 


JO FOR 


70 


PRINT 


50 


INPUT 


90 


IF Uh 


D$ U TO 5 


J >£9 


hND i.,i 


GGTD 


40 


100 


PRINT 


RHZiJ 


EN DI 


110 


INPUT 


115 


FR5T 


120 


LET D 


150 


LET M 


14.0 


LET Pi 


150 


i';n5i IE 


160 


LET R 


170 


LET R 


1S0 


IF R2 


190 


005UE 


200 


IF DU 


210 


Cl5 


215 


SLOU 


220 


PRINT 


T S , 


L4.: ''PR 



f^LCULO DE '..-lENCIMENTOe 
OStPTQ DOS S. 5ILUPI 
EP5hO 27/ei..-i54 

! ! — 'T* 

PT 1,3: "ENTRE COM fl D 
MhTO" 

PT Cv. 13; "DD/MM/HlP" 
■DS 

L D$C1 TO £! >31 OR UhL 
! M2- OR fUPL D$ 1. 1 TO 2 
^^L DS Id. TO 5:i =2) THEN 

PT 6.4; "ENTRE COM P 
hS" 



=UPL D$ f 1 TO 2) 
='JhL D$ (4 TO 5.1 
=UhL D$ (7 TO S) 

500 

1=ND-D 
2=PR-R1 
.:=0 THEN GOTO 200 

600 

= THEN LET DiJ=D-!-pK 



hT 5,2 ; "DPTP INIC. " , fl 
RZO":PiT S ,22; ■'DflTPi 'JEN 



230 PRINT PT 10,3:D$iRT lO , 14 ; C' 
R ; HT 10 , 23 ; DU ; " ./" ; H ; " -'■" ; fi 

£40 PRINT PT 15,5;"PfiRP CONTINU 
PR TECLE yC- '■ 

250 PRIMT pT IF ,5; '■[^=T^=WBrBIS5aSSni 



■fiRft CONTIKI 



;i&0 


LET S£ = INmiYS 


270 


IF ■z.$ = "- THEN GOTO 240 


230 


IF 6$="C" THEN GOTO 40 


290 


:5T0P 


500 


LET NC =31* i.H = i:) +25* i:M=2i +31 


* ih=: 


:j +30+ 1. M=4) +31* f M=5' +30+ i. M=b 


■ -)-31-* iM=7) -fCl* iM=Si -t-30+ ir-1=9J -f-51* 


i:M = i0) H-30+ iM = ii:i +31* a-i = i2:i 


510 


IF M=2 PND fl/4=INT ifi..-4;i Th 


EN LET ND=29 


520 


RETURN 


600 


LET M=M+1 


610 


IF M<=12 THEN GOTO 640 


620 


LET M=l 


630 


LET P=P-i.i 


640 


GOFJ IE i=;00 


650 


LET R1=R2-ND 


S-FG 


LET DU=R2+ (RK01 +ND* (R1=0^ 


670 


IF DU=0 THEN GOTO 690 


630 


RETURN 


FPG 


LET R2=R1 


700 


GOTO 600 



m 
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tt t* M M «** *Mt ** *t *t *Mt ****** *t 9 rt ** t* *t tt,** ^ 

1 1'- s c o 1 c) r t ('■ s c o 1 o I'- t: v s color t: i 

tM* ************************** *H* ****************************** t* ** t* ****** t* ************ *t t* ******************** *t tt ********** i* ** t* ******** : 



i 


REM 




2 


REM 


ir-ii ^^ ifi^i pii ^ T c: 


3 


REM-- 





A 


REM 




5 


REM 


Gera'ldo S i monet: 


6 


REM 


t^i tor ia - EB 


7 


REM 




B 


REM 


COLOR 64 


9 


REM 





t. i B e 1 1 o 



Se voce gosta de Mijaca Popular Brasileira e 6 usudrio de al- 
gum dos micros compati'veis com o TRS-80 Color equipado 
com Extended Color BASIC, aqui esti um programa que com- 
bina recursos grdficcs e musicals para executar duas composi- 
90es bastante conhecidas da MPBiMzria, Maria, de Milton Nas- 
cimento e Fernando Brant, e Meu Bern Querer, de Djavan. 

Eis uma breve descrifffo do programa; 

• linhas 10 a 400 - desenham a tela de titulo, usando alta re- 
solu^So ; 

• linhas 410 e 420 — permitem selecionar uma das duas miisi- 
cas disponi'veis; 

• linhas 510 e 520 - coordenam a execu^So das miisicas 1 e 
2,respectivamente; 

• linhas 610 a 630 - infomiam sobre a musica escolhida; 

• linhas 710 a 1000 — desenham a tela que serd mostrada du- 
rante a execu^So das musicas, usando mddia resolu9So; 



• linhas 1010 a 1090 — contem os comandos utilizados na 
musica 1 ; 

• Unhas 1110 a 1130 - contem os comandos utilizados na 
musica 2. 

Tendo assimilado bem o programa, voce poderi ampli^-lo 
inserindo outras composi^Oes e fazendo as modifica^Oes ne- 
cess^rias. Aliis, os comandos PLAY foram colocadoscomo sub- 
rotinas nas ultimas linhas exatamente para facilitar o seu tra- 
balho. 

Agora sente-se confortavelmente e divirta-se ouvindo o Co- 
lor executar duas das vdrias musicas que ele aprendeu desde 
que chegou ao Brasil. 



Maria, Maria - Copyright 1978 by Tris Pontas Edifoes Musicais Ltda. 
Meu Bern Querer — Copyright t980 by Edigoes Musicais TapajAs L tda. 



10 
20 
30 
40 
50 
60 
70 
80 
90 
TOO 

no 

120 
130 
140 
150 
160 
170 
180 
,BF 
190 
200 
210 
220 
230 
240 
250 



PM0DE4 , 1 

PCLS:DIMV 

SCREEN 1 , 1 

LINE(94,6 

CIRCLE ( 1 1 

CIRCLE{ 1 1 

CIRCLE{ 1 1 

CIRCLE( 1 1 

LINE( 109, 

CIRCLE( 1 

CIRCLE( 1 

CIRCLE( 1 

CIRCLE{ 1 

CIRCLE( 1 

CIRCLE( 1 

CIRCLE( 1 

GET (97,6 

LINE( 94, 

FOR X=10 
PUT(X,4) 
NEXT 
FOR X=10 
PUT (X, 6 5 
NEXT 
FOR X=10 



(89) 

0)-(l 
4,99) 
4,95) 
2,73) 
2,73) 
78)-( 
1 1 
1 1 
96 
83 
85 
82 
52,90 
3)-(1 
60)-( 

TO 1 
-(X+5 

TO 1 
)-(X + 



12 
1 1 
37 
34 
32 
52 



58, 12 

,10,, 
,16,, 
,5, ,2 
,5, ,2 
116,1 
7), 5, 
5), 3, 
},10, 
),7,, 
),4,, 
),2 
),2 
55, 12 
158, 1 



6) ,PSET,B 
1 , .5,1 .25 
.9, .25, .72 
, .75, 1 .25 
,.4, .75 
15) ,PSET 
,1,.97,1 .5 
,1,. 5, 1.35 
,2, .7, 1 .25 
.95, .4, .75 
1 , .63,1 .4 



3) ,V,G 

26) , PRESET 



260 PUT(X, 126)-(X+58, 186) ,V,PSET 

27 NEXT 

280 LINE(6,2)-(250, 188) ,PSET,B 

290 LINE(70,65)-( 182,123) ,PSET,B 

30 DRAW'BMIOO, 1 03 ; U8 ; E2 ; U8 ; R3 ; F 

4;E4;R3;D19;L3;U15;G4;H4;D15;L4" 

310 DRAW"BM121 , 1 03 ;U8 ; E2 ;U8 ; R4'" 

CIRCLE { 127, 90), 6, ,1,. 8, 1.25 

CIRCLE( 127,90) ,2 

DRAW" BM 1 2 5 , 9 5 ; D9 ; L4 " 

DRAW" BM 136, 1 3 ; N ;R9 ; U8 ; E2 ; U8 



320 

330 

340 

350 

;R6" 

360 

370 

380 

390 

400 

410 



1 . .72.1 .2 



"ESCOLHA A 



84 STEP 58 
8,53) ,V,PSET 

84 STEP 174 
58, 125) ,V,PSET 



TO 184 STEP 58 



CIRCLE( 144,89) ,5, , 1 , .8, 1 . 1 

CIRCLE( 143,89) ,2 

CIRCLE( 144,98) ,6, 

CIRCLE( 143,98) ,2 

FORZ=lTO2000:NEXT 

CLS:PRINTTAB( 133) 
MUSICA ( 1-2)";TAB(103) ;"( 1 ) MAR 
lA, MARIA";TAB(71 ) ;"(2) MEU BEM 
QUERER" 

420 AS=INKEY$:IFA$=""THEN420 
510 IF A$="1" GOSUB610:P=1 :F=2:S 
=0:L1=2:L2=4: G0SUB7 1 : GOSUBl 010: 
GOSUB1030:GOSUB1010:GOSUB1050:GO 
SUB 1 070 : GOSUBl 070 :G0T04 10 



520 IF A$="2" GOSUB620:P=5:F=6:S 
=1 :Ll=6:L2=8:GOSUB710:FORX=1TO2: 
GOSUBl 1 10:GOSUB1 1 10:GOSUBl 120:NE 
XT:GOTO4 10ELSE420 

610 CLS:PRINTTAB(41 ) ;'"MARIA, MAR 
IA";TAB(75) ;" AUTORES:" ;TAB(71 ) ;" 
MILTON NASCIMENTO";TAB(46) ; "E";T 
AB(40) ; "FERNANDO BRANT" :GOTO6 30 
620 CLS:PRINTTAB(72) ;"MEU BEM QU 
ERER" ;TAB{76) ;" AUTOR:" ;TAB(76) ;" 
DJAVAN" 

6 30 A$=STRING$(30,"-" ) :PRINTTAB( 
33) ;A$;TAB(68) ;"ARRANJOS PARA 
CO CO:";TAB(68) ;"GERALDO SIMONET 
TI BELLO" ;FORZ=lTO2000 :NEXT:RETU 
RN 



710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 



PM0DE3, 1 
COL0RP,F 
PCLS 

SCREEN 1 ,S 

CIRCLE(40, 1 16) , 15, , .75 
CIRCLE(98,86} , 15, , .75 
LINE(53, 116)-(53,50) ,PSET 
LINE( 1 1 1 ,86)-( 11 1 ,26) , PSET 
LINE(5 3,50)-( 1 11 ,26) ,PSET 
LINE(5 3,54)-( 1 1 1 ,30) , PSET 
CIRCLE( 169,66) , 15, , .75 
LINE( 156,66)-( 156, 126) ,PSET- 
CIRCLE(216,66) , 15, , .75 
LINE ( 205,66 )-( 205, 126) ,PSET 
LINE(5,56)-(251 , 5'6 ) , PSET 
LINE(5,76)-(251 ,76) , PSET 
LINE(5,96)-(251 ,96) ,PSET 
LINE(5, 116)-{25,116) , PSET 
LINE (55, 116)-(251,116) ,PSET 
LINE(5, 136)-(251 , 136) , PSET 
FOR 1=1 TO 3 
FOR C=L1 TO L2 
PAINT(40, 1 16) ,C,P 
PAINT( 98,86) ,C,P 
PAINT( 169,66) ,C,P 
PAINT(216,66) ,C,P 
CIRCLE( 192,56) ,25,C, .' 
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95 

980 PAINT{82,40) ,C,P 

990 NEXT C,I 

1000 RETURN 

1010 PLAY"V25;T3: 
L8;D;L4;D;L4. ;D 
L8;A;L4;A;L4. ;A 
L8;G;L4;G;L4 



01 ;L8;A;02;L4 
L8;E;L4;D;L4 . 
L8;B;L4;A;L4. 



;G;L8;G;L4;G;L4. 

+ ;L4. ;D;L4. ;E;L2;F+;L4;F+;L8;F+;■ 
L4;F+;L4. ;F+;L8;A;L4;B;L4. ; F+ ; L8 
;D;L4;D;L4. ;D;L8;D;L4;D;L4. ;E;L8 
; E ; L4 ; E ; L4 . ; E ; L8 ; D ; L4 ; D" 
1020 RETURN 

10 30 PLAY"L4. ; D ; L8 ;G; L4 ;G ; L4 . ; F+ 
;D" 



1040 RETURN 

10 50 PLAY " L8 ; D ; L4 ; D ; L8 ; G ; L4 ; G ; L 4 

. ;F+;L2;D" 

1060 RETURN 

1070 PLAY"V30;P64;L4;A;L8;A;L4;A 

; L4 . ; A ; L8 ; B ; L4 ; A ; L4 . ; A ; L8 ; A ; L4 ; A 

;L4. ;A;L8;B;L4;A;L4. ;A;L8;G;L4;G 

;L4. ;G;L8;G;L4;G;L4. ;F+;D;E" 

1080 PLAY"L2;F-(-;L4;F+;L8;F-(-;L4;F 

+;L4. ;F+;L8;A;L4;B;L4. ;F+;L8;D;L 

4 ; D ; L4 . ; D ; L8 ; D ; L4 ; D ; L4 . ; E ; L8 ; E ; L 

4 ; E ; L4 . ; E ; L8 ; D ; L4 ; D ; L4 . ; D ; L8 ; G ; L 

4;G;L4. ;F+;L2;D" 

1090 RETURN 

1110 PLAY"V30;T1 ; 02 ; Li 2 ; A; B ;03 ; C 

+ ; L2 ; C+ ; 02 ; L 1 2 ; P64 ; B ; 03 ; C+ ; L4 ; D ; 

L8;C+;02;B;L4;B;L8;A;L4;G+;L8;F+ 

; G+ ; A ; B ; A ; L4 ; G-t- ; F+ ; L8 ; G+ ; L2 ; E ; P 1 

6" : RETURN 

1120 PLAY"T1 ;L12;A;B;03;C+;L2;C+ 

;L4;G+;L8;E;L4;C+;02;A;03;F+;L8; 

D;L4;02;B;L8;A;L4. ;03;F;L4;F;P64 

;L8;E;L2;E;L4;C+;L8;F+" 

1 130 PLAY"L2;02;B;L4. ;A;03;C+;P3 

2;L4;C+;Le;F+;L2;02;B;L4. ;A;L8;0 

3 ; C+ ; L2 ; C+ ; P6 4 ; L8 ; C+ ; C+ ; D ; 02 ; B ; 

3 ; C+ ; L4 ; 02 ; A ; B ; L2 ; A ; P 1 6 " : RETURN 



MP BASIC 



ffi 



S6 
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SOFTWARE 



QOi'^scnto novas Otus com 
descmos emockmantesparavoc^! 



PARA EQUtPAMEKTOS COM LCGICA SDICLJUII 



I.VALKIRIE 




2. MERCADOR DOS 

SETE 

MARES 




4. DEFENSOR 3D 



-OHHIDA MALUCA <■ PlNflAU 
- B U/.v 

S. ROT I • PLUS 





OBEBT 
(£>clijii..dsilr 
Citxtn.. 

OCT Divinize H Lr^rJv. ■- 
ASSALTO 



3. SUBESPAgO 

impjotav.] 

CAVEBNAS DE 
MAHTE 

Dkiik 
EEPAnAI 



6. APUCI 

• ccjmfcali: 

dti iA IdEnc*] Vjai Cdk 

• COMP ABO 

Pincirimi orrddni deiniuiiM 

Teidlrrwnl* .m -"AJivi dt- mdiru 

• <:OMT TEXIt' 

Lh- ld< ij iTuirEpi.Lii^4^ Ti-ridLrrntTii 



PAHA EQUIPAMENTOS CC»4 LdGICA TRS M 



1 . SIHULADOR DE VdO 




s i n c 1 a i r Sinclair si n c '! a i r <!> i n c J 



REM 

REM 

REM™ 

REM 

REM 

REM 

REM 

REM 

REii 



tE* tf=* tl„_. 11:=^ r: X O S 



Marcel G., de Al buqiierfiue 
Mace i o ~ AL 

IK 82C 



Este programa serve para mostrai 
quanto se recebeu de sal^o durante um 
determinado periodo, em dinheiro atua- 
llzado. Assim, o programa pede que seja 
digitado mes/ano, o sal^io e valor 
da ORTN do mes. A seguir, divide sa- 
Mrio pelo valor da ORTN, obtendo-se os 
salvos j^ convertidos em Obriga^Ses 
Reajust^veis do Tesouro Nacional. Para 
se obter valor real do que se recebeu 
no perfodo, essas unidades devem ser 
multiplicadas pelo valor atual da ORTN. 

Com isso, teremos tambdm uma compa- 
iz(}So entre a varia9ao salarial e a varia^So 
das ORTN. Observe que na linha 4 do 
programa foi escolhido o valor 12 para a 
vari^vel V. Para um maior numero de 
meses, deve-se dimensioni-la convenien- 
temente. 

programa 6 auto-expbcativo, mas 
como exemplo tomemos os dados da fi- ^W"™ ' 
gura 1 . Para formar esta tabela, basta colocai o programa para 
rodar e, escolhida a op9ao 'TAB", digitar os salirios-mfnimos 
de mar?o de 1983 a fevereiro de 1984 em Al^oas, com os res- 
pectivos valores das ORTN de cada mes. A quarta coluna (S/ 
ORTN) mostra a varia9ao do sal^o m^nimo de Alagoas em 
ORTN. Uma outra opfSo (CAL) mostrari quanto se recebeu, 
•durante 12 meses, em valores de fevereiro de 1984. Assim 
programa fornece o valor de CrS 648.910,57, recebido entre 
marfo de 1983 e fevereiro ultimo. 



sugestOes 



O fundamental deste programa ^ a rela^So entre a varia9ao 
de um determinado valor e a varia95o das ORTN que, sendo 
corrigidas pela cone^So monetiria, com base no fndice oficial 
da infla9ao, nos d^ uma exata medida do quanto recebemos ou 
pagamos em fun9ao da desvaloriza9ao da moeda. Assim, pode- 
remos ter o mesmo tipo de compara9ao substituindo os salS- 
lios pelas presta90es pagas num consorcio ou pelas presta9Ses 
da casa pr6pria. Mas, para se obter resultados como esses, seria 
interessante fazer algumas modlficafOes no programa original. 
£m primeiro lugar, numero de meses n3o pode continuar sen- 
do flxo. Assim, deve-se apagar a linha 4 e incluir as seguintes: 



SB 



MfiS 


SAL Arid 


ORTN 


S/ORTN 


MAR/ 8 3 


20.328,00 


3.292,32 


6,17 


ABR/8 3 


20.328,00 


3.588,63 


5,66 


MAI/8 3 


30.600,00 


3.911 ,61 


7,82 


JUN/8 3 


30.600,00 


4.224,54 


7,24 


JUL/8 3 


30.600,00 


4.554,05 


6,71 


AGO/ 8 3 


30.600,00 


4.963,91 


6,16 


SET/8 3 


30.600,00 


5.385,84 


5,68 


OUT/ 8 3 


30.600,00 


5.897,49 


5,18 


NOV/ 8 3 


50.256,00 


6.469,55 


7,76 


DEZ/83 


50.256,00 


7.012,99 


7,16 


JAN/84 


50.256,00 


7.545,98 


6,65 


FEV/8 4 


50.256,00 


8.285,49 


6,06 



140 CLS 

141 PRINT "QUANTOS MESES ?" 

142 INPUT U 

143 DIM 0(U) 

Tamb^ seria util saber quanto se pagou em valores nSo rea- 
justados, para se estabelecer uma compara9ao. Para isso, deve- 
se incluir: 

4 36 LET TOTAL = 

445 LET TOTAL = TOTAL + S(I) 

Para se obter na tela este novo cdlculo, 6 precise substituir 
aslinhas510,520, 530e 540 por: 

510 PRINT,, "- REAJUSTADOS CONFORME EVOLUCAO" 

520 PRINT " MENSAL DAS ORTN:" 

530 PRINT,, TAB 11; "CRS"; ( INT{ SAL* 1 00 ) )/l 00 

540 PRINT,, "- NAO REAJUSTADOS:" 

e tamb^m incluir as seguintes linhas: 



550 
560 



PRINT,, TAB 
GO TO 70 



n ; "CR$"; {INT( TOTAL* 100) )/400 
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Para uma melhor formata^So da tela, pode-se ainda incluir: 

505 FOR P=0 TO 31 

506 PRINT "$"; 

507 NEXT P 

E como moditica^des fmais, que podem ser implementadas 
mesmo sem as anteriores, deve-se apagar a linha 430 e modifi- 
car a linha 120 para: 

120 IF R? = "PAR" THEN GO TO 2000 



acrescentando: 

2000 

2010 
202 



STOP 

SAVE " 
GO TO 



SALARIOS" 

1 



Al^m dessas modifica95es acima, o leitor pode mudar a pa- 
lavra SALARIOSj existente no programa, por MENSALIDA- 
DES, PRESTAQOES ou aquela que melhor significar o que o 
usuirio deseja expressar. 



1 C-RINT ST 11 ,S. ■■jflLPlPIQS PEf5 
JUiTi^COS CONFORHE SyOLUCRO MEN5R 
L DftS OPTN" 



150 



PflU5E 
FfiST 
LET U=l= 

CL5 



20 PRINT TRB 10, ■INSTRuCOEf 



30 PRINT 
ICIO SALOP X05" 

A0 PRINT , . "■ 
Tfl 5fluflPI05" 

se PRINT , , 
LCJLC" 

55 PRINT . 
=TRUCCe5- 

63 PRINT 

no&RflMR'- 

65 PRINT 

eela 

70 

ac 

100 



■INI" 
"flCR"" = flCREJCEN 



■■CflL"" = OBTEM Cfl 
"INS" ■ = DBTEM IN 



■pfiR-- = PPiRR P 



■"TPiB"" = OBTEM Tfl 
= RINT ftT £0 .0, -DIGITE INrTP 



INPUT Ps 
IF PJ="INI 
R$ = - PCC- 
R*= CFlL 
R«= TRE 
120 IF RS= PRP 



IF 
lie IF 
115 IF 



THEN GOTO 
THEN 30"^0 



125 1= Rs= in; 

130 &0T0 30 

140 DIM (Ui 

145 DIM D$iu .61 

150 DIM 5 (Ui 

155 CIM P lU' 

160 _ET cnfjT=0 

1^0 -^OR I=CONT*i TO 



140 

1^0 

THEN SOTO 390 
THEN GOTO 600 
THEN STOP 
THEN GOTO 



10 



130 CL5 

ISS PRINT I 

190 PRINT ME^.fiNO ?"i 

200 INPUT DS I II 

210 PRINT C* '11 

220 PRINT . .'SflLRPIO ^ "' , 

230 INPUT z ' !■ 

240 PRINT CP» ' • 5 ' It 

245 PRINT 

250 PRINT 'OPTN ' ■■, 

260 INPUT 0!I' 

Sro PRINT CPS ■ .Oil! 

275 PRINT 

260 PRINT EiTflo CORRETO; 03 :•(=< 

DOS "'5 Nl 

290 PflU5E 40000 

300 IF lNt<E. S = 'N" THEN GOTC' 100 



;i0 PRINT HCiIS DRD05 "t5'Ni" 

320 PAUSE 40000 

3 30 LET C0NT=C0NT+1 

240 IF INr.ErjsN" THEN GOTO 36^ 

350 nE-'T I 

360 PRINT BT 20 ,0, ■■DieiTE IN5TR 
UCflO- 

370 INPUT PS 

380 GOTO 90 

390 REM -CAlCULOS- 

400 CL5 

410 PRINT -vflLOP PTUOl DP ORTN 

420 INPUT OU 

430 PRINT OU 

435 i-ET 5=0 

440 FDR 1=1 Tu CONT 

450 LET 5=5*6 ■ l! 'I I 



460 NEl'T J. 
4-0 LET 6hL=6*0U 
4 30 tL5 
4 90 PRINT 
RCEBID05" 
500 PRINT 



TOTAL DE SRLflRIOJ pE 



MENSflL DflS ORTN 

■ TAB 7, -CRS "■ SOL 



NO PERIODO DE " ,DS I 1 
, ■ R ■■ , D» iCOf-tTi 

510 PRINT 'RERJUSTfiDOS CQNFOPME 
EvOlUCRO' 
520 PRINT 
530 PRINT 
540 GOTO ■'0 
eOO PEM -THBELR- 

ei0 cl.6 

620 PRINT MES'.TPB 9. 
, TRB 19 "OPTN' . TfiB 26, ' 

3X 

f, •■-■■ 



■'SRLflPIO 
■5 /OPTN ■ 



630 FOR r=0 

640 PRINT RT 

650 NEXT . 

660 PRINT 

670 FOP 1=1 TO CONT 

630 LET -SsSTPS 5 (Ii 

690 LET U» = 3TRs Oi.Ii 

700 LET Rili=lNT (5 111 /O il> -ilOO 
I /1G0 

710 LET El=5TRt Rill 

720 PPINT DjilJ.TRB 115-LEN XJ' 
.slI'.TfiB i24-lEN U*i,0(I(,TRe ' 
32-LEN E«i , R'. Ij 

730 NEXT I 

740 C-OTO 70 
1000 PRINT RT 20,0, ■■DADOS ERRADO 
5 FQPPM OPhGADOS'^ 
1010 P0U6E 200 
1020 GOTO 1.50 



Saldrios 



Impressoras apaixonadas, 
micros felizes. Oi^mento perfeito. 

Ecodata EL8000 "^-^^ ^Htn 



A impressora 
fora de serie. 

EL-8000 6 ludo que um micro precisa de 
uma impressora. De incn'vel versatilidade 
a EL-8000 possue: 

• Controle por microprocessadof, 

• Escrita bi-direcional em qualquer cir- 
cunstSncia - procura I6gjca, 

• Impfime em diversos idiomas: inglfes, 
trances, alemao. espanhol, etc. 

• Desenha. faz grdficos, reprodur qual- 
quer imagem que um Micro produza 
em seu video. 

■ Troca de fotmato de impress3o dentro 
da mesma linha. 

• Velocidade de comijnica^^o de 50 at6 
9600 BPS. 

• Buffer de recepcao at& 2,000 caracre- 
res. 

• Produz diversos tipos de impressSo: 
norma), negriio. expandido. sublinha- 
do, sub e sobre-escrito. 

• 80 a 132 caracieres por linha. 

• Impressao matncial 9 ' 7 permmndo 
ai6 8 vias numa velocidade de 100 
CPS. Em bobina, foiha solta e.'ou for- 
muiario continuo. 

• Eic... etc... etc... 










ilSKMA D( PUuLiSSAMtNIO D[ DA005 [ Til tCUWUWHACClES 

Riode Janeiro - R. Republica do Libano, 61 - 12? andar - Tel.: (021 1 - 221 -4677 - Telex 10211 30187 

Sao Paulo - Rua Frei Caneca, 1 1 19 - Tel.: (01 D 284-83 7 1 - Telex (01 II 22191 

Brasilia SCS 02 ■ Bloco C n? 41 SL. 01 Tel.: 10611 225- 1588 - Telex 1061) 1750 

Porto Alegre Rua Santa Terezinha, 300 - Tel.: (0511 232-3564 - Tele^ (051) 2144 

Belo Horizonte: Tel.: (031) 222-7809 

Godnia - Salvador 



£ 







Tern hora que precisa ser micro 



:l RFH 

2 REM 

3 REM" 

4 REM 

5 REM 
A REM 
7 RRH 
n REM 
9 REM 



F- IF" i-ia- B.i hh: m o ^^ T M i-j- i"i: s t i: n-'ti i;;::: m i" o 3 



(3 'I a 1 1 d c n i f Cn a I.J (i i o D o m ^-i n f? 
Sorocaba - BP 

np 500 



E sempre bom separar uma parte do 
salario para fazer pequenos investimen- 
tos. que podem ser um otimo socorro 
em momentos imprevistos. As vezes, fa- 
zer um empr^stimo bancario tambem 
pode ser um bom negocio. se temos um 
destino rentavel para este dinheiro. 

Criado para o CP-500, este programa 



foi desenvolvido com o objetivo de ori- 
entar o pequeno investidor sobre os me- 
Ihores negocios que ele pode realizar 
com uma determinada quantia, atraves 
do estudo dos calculos de rentabilidade 
dentro do periodo de tempo que cada 
tipo de aplica^ao pode oferecer. Os cdl- 
culos apresentados peio programa sao 



baseados em juros compostos (juros 
sobre juros). Com este programa, o pe- 
queno investidor podera saber, por 
exempio, quanto teria que aplicar por 
um certo numero de meses para ftbter 
um valor equivalente em uma linica 
aplicagao com o mesmp periodo e ames- 
ma taxa de juros mensal. 



I REM •••■■•■■..•...••••■■■•■■•■■a 

3 HEM • NOME 00 PROORflMA " 

3 REM ■ INUESTl/BflS ■ 

« REM ••^.»■lll.•l.•••<l•■•••••••l.■••■■ 

S REM 

10 CUS:PRINt CHH*t23HPRINT8 212, "INVESTIMENTO" 

20 PRIMTfl 33B,- " 

30 PRINTa 45tJ,"fiUT0R CLflUOEINIR CLAUOIO OOMENE" 

40 PRIMTfl 58a."EMBRATEL - SOROCflBft" 

50 R1-1NKEY4IIF fljc"" THEN 50 

60 Z»""N»stJi opcao voce "iX»""leB una ccrt« iij»nll» " ifl*-"lttttttlMM 

II ifiiH . ItH" 

70 CLSsPHINTS 10."»« PROGRAMA PARA PE9UENC INVESTIDOR •■" 

eo PRINTfl 7^,'—, IFOR I-l TO 401PHINT CMBJ(95> ( JNEXT 1 

90 PRINT8 197, "Est* progr»i»a destina-tc aqurlas qut pretende* fa 

i»r invo»-t I inenl OS, or i ent ando-os na »clhor opcao, 0» calc'iloB 

a<tiji apr«-icnt adna sao ba«cadD« p« juro* cowpoitos (juroa sobre 

J g r o » ) . " 

100 PRINTS <53,"Co«i este prosrtna sera" possivel i/sriflcar sua c 

adcrncta depotipanca , scus eaprest i mos * suitaa outra* colaas d> 

pendendo dscomo utlllza-lo. 

110 PRINTS &45,"0br igado pe)a atencao e boa sorte. 

120 FOR «=1 TO lOOiNEXT AJPfllNTa 930," 

"IFOR A-l to lODiNEXT AiPRINTfl 930,"TECl.e <ENTEH> PARA CONTINU 
AB">IF M4=INKEY* THEN i?0 

130 CLS1PRINT820."P EH S ) (ll"a8*,''S EM P > (2)"ai4e,"B E 

M S ) (31"8212,"S EM R ) (4>"B276,"R EM P ---1 (5)"a3'lO,"P 

EM R > '6)"S389."P=UAL0R ATUAl."S4S3, 'R-SERIE UNIF0RME"»517, " 

S-WfllOR FIJTUR0"a574," " 

1«0 PRINT-aUAL E' SUA OPCAO "" 

150 Vl-INKEViHF Y*»"" THEN ISO 

160 IF Y»="l" THEN 410 

170 IF Y»-"2- THEN 420 

IBO IF T1--3" THEN 430 

190 IF Y4="4" THEN 440 

200 IF Yl="5" THEN 450 

210 IF Y5-"6" THEN 460 

220 GOTO 150 

230 G05UB 300iO0SbB 3301G0!;UB 290ICO5UB 4Q0iPR INTa640, StgUSING A 

ftPH'AiDOTO 360 

240 GOSUB 300IO0SUB 34aiG05LJB 290:G05UB 480:PR INTa64D,Pt t "SINO A 

tiSH/AIGOTO 360 

250 GOSUB 300iG0SliS SSOiOOfiUB 290IG05UB 4aa:PR INTa640,St ;U51NC A 

ii«(t"F/IiGOrO 360 

260 GOSUB 3001DOSUB 34aiG05UB 290:GOSUB 4Ba:PRINT8640,Rt|U&IN0 A 

»i3t«>l/F>G0T0 360 

270 GOSUB 300>GOSUB 3501GOSIJB 290IGOSUB 4gO[PR iNTa640, PtfUSlNG A 

1,HK.F/I/AjG0T0 360 

^Bfl GOSUB 3D01G05UB 330:G0SUB 290!fiOSUfl 49D:PR INTa64D . RSjUSIND A 



llPtlalaA/'FiGOTO 360 

Z90 A»(l*I)tNIF-A-HRETURH 

300 INPUT -NUMERO OE PEHI0005 " t** 

310 INPUT "TAXA DE JUROS <X> 'ill 

320 I»I1/100>R»""SERIE UNIFORME Cr» "iS$«"UALOB FUTURO.. Crt ~iP 

^-'PRINCIPAL Cr* "iRETURN 

330 INPUT'PRINCIPAL CrS "iPBiRETURN 

340 INPUT"MONTANTE CrS "{SRiRETURN 

350 INPUT-SERIE UNIFORME Cr» "jRltiBETURN 

360 GOSUB 470 

370 PRINTa930." NOUO CALCULO <S/M) ?•' !K»"INK£Y«i IF K»-"" THE 

H 370 

3B0 IF KS-'S" THEN 130 

390 IF K»«"N" THEN S20 

400 GOTO 370 

410 CLS»PRIMTa74,Z»,XS,"<Ualor Atual) « pretcndv lnv«at.-la por 

un carta periodo <Me»*s> r desaja aaber ifua] sera O total (Ualor 

FuCuro) no rinal dasir pariodo cob <imm detcrsinada taxa da Juro 
■ Ban*al.''iGOSUB 470IGOT0 230 
420 CLS<PRIMT874,Z*i"d«saja saber quanto teria que aplicar hoje 

<Valor Atual > para obler uaa carta quantia (Valor Futuro) no f 
im dc u» carlo periodo (Hasesl com uaa certa t a«B da juro« "era 
bI.">GOSUB 470>QOTO 240 

430 CLSiPRiNTa73,ZSi"deBeja saber qual o valor final (Valar Futu 
ro> quando aplicado u*a certa quantia nensal < Ser I a Unlfor- ■«> 
por un detcrninado periodo (Meses) coa uaa daterainada taHa de J 
uros BansaL-'iGOSUB 470iaOT0 250 

440 CLSiPRINTa73.Zli"dPaeja saber quanto terIa que aplicar (Seri 
a Uniforiial por un carto periodo (Hesa*> para obtar un va- lor f 
Inal (Ualor F-iturol cob ubb deteratnada taf* de Juros aen- sal." 
tGOSUB 47010OT0 260 
450 CLS«PBINTa74,Z*j"de6»ja saber quanto teria que ap 1 i car (Wal or 

Atual) a* uaa unica vez para obtar o equivalente para uaaaplica 
cao nansal (Serie Uniforms) e* ua detcrainado periodo (Me-ses> e 

uB> daterainada taxa de juros aensal ." iGOSUB 470IOOTO 270 
460 CLB>PHINT873,7%j"des«ja saber quanto teria que aplicar ( Ser I 
e UnlforBe) por ua carto nuraero de aescs para obter ua va- lor e 
quivalente <Valor Atual) ea uaa unica aplicacao coa o aas- ao pc 
riodo <Meae«) e a aesna ta»a de Juros nensal ." tGOSUB 470>GOT0 28 


470 FOR I-l TO 64:PRIMT CMR4<9S) j :NEXT I IPR INI iRETURN 
4flO PfilNTa930,"C0NFIRMA OS DADOS IS/NI '''■ IDJ«1NKEY%1 IF 05""" THE 
N 460 

490 IF 0»-"N" THEN 130 
300 IF D\-"S" RETURN 
510 GOTO 480 

520 CLSiPRINTa527,-'a"a ATE' BREWE OBHIGAOO BYE BYE ■•■":PHINTi 
PfllNTiPRINT 



_l* 




O Elppa \l Plus 6 um micro compulsdOf . 
§6 que lefn macro vania^ens. 
E fenc quase aMezanalme^nte, portanCo leslada 
um a um. 

E isso i uma rnacrc quaNdade. 

Ck>irto % reito com componenEes de alta qualidada^ 

deniro dos melihores padr66s de Engetiharla, a 

con'TiabiJidade do Elppa \t Plus 6 macro. 

custo de manjten^&D ^ micro' o unico com um ano 

de garantlB - macro qualidade com macro garanEia. 

AA com o pre<;D aconleca uma coisa inleressanlie. 

deveria ser macro, mas quando voc^ veftijca o custo 

de uma cOnTigurat^ao vb oub 6 micro. 

A asiSisCiificia l^cnrca 6 macro - dtrela 6o fabricante 

Ou atravds de ssus credenctados. 

Ele 6 um Apple* compaiiuei e dispAa da vasta gama 

de expansQes e perif^ricos S sua disposi^Ao > 

COWTHOLADOR DE OHIVE. CPlM. PAL-M, SO 

COLUNAS. SORSWITCH. 16K. 64K. ISSK. GRAPH + . 

SUPER SERIAL CARD. SINTET1ZADOR DE VOZ. 

I^*O^JITOR in, file... ' macro vanlagem. 



Tern hora que precisa ser macro. 

Conoiusao: Soja para voc6 ou oara sua empress. 

micro OU macro, ia(;a como a Rede Giobo, a Rede 

Bar^etrames ou a Control que [fem se uEilizado do 

Elppa II Plus cm fiuas necessidades empresariais Ou 

como OS lurxciortSnos do Bamerindus para suas 

Biividades pTorissionais e de lazer 

Fai^a como lanios ouiros, que esiSo aprcveiiando as 

vanlagens de um micro 

que saba sar macia na | — 

hora certa I MaCTO 

Escoiha Elppa M Plus W ai^ 
a macro escolna. 

O micro macro. 

Fabrtca: Rua Aiirriiere o' 931 - S.P. Tal. 864.0979 - 872.2MiA 
Show Room: Av. Sumarfi n* 1.744 'SP Tal.e72.47ftB 





Pequenos Investimentos 
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• BelO HOriHHlta - SPHESS 225,B98S • PortO Aleors ■ APHTEC ?4.CW85 - 00 COMPUT^JOflES 22 5136- EMSfWMSC J 1.9750 • RiO do JanslTO ■ BMS 29^.772* Sl^EMA 
253 0645- SCSiSTEIttAS23?a3Cfl • WJtOJ'ia - SOFT CENTER 523 Slfl? - BraslIJa - COUPuSHOW 273 2120 ■ Curillba - VIDEO E AuDiO 33fl.0eSS * Umdrlna - SCT i« 
^3 aiaa - Recife - NC SISTEMAS 22B DI60 - sao Joaflao Rio PralO-TELEDATA 35 27^4* SflOPflu 10- ADPSVSTEt^ 227 ^43J;'BMK 62.9120 EUROPLAN 256 SiaS- 

GENLOCK ?t 2 7?1 ij ■ SOLUC^ ^fl? 5J 1 1 ■ VICTOR SHOW fiCOM S 12 At^ 






• RAMCARD • SOFTCARD • VIDEOTERM • SOFTVIDEO SW ■ PROGRAAAMER • PROTOCARD • INTf . DISKS 

INTF. PRINT • SATURN 128K RAM. * SATURN 64K RAM. ■ SATURN SSK RAM. ■ RANA QUARTETO ■ MtCROMODEM 

- MlCftOBUFFER II • MJCROCONVERTER II ■ MICRO V02 II ■ ULTRATERM ■ ALF 8068 CARD 

■ A800 DISK CONT ■ MULTIFUNCTION CARD ■ SUPERSERIAL 

MICROCRAFT MICROCOMPUTA&ORES LTDA. 

AdministragSo e Vendasr Av. Brig, Faria Lima, 1698-1? andar ■ Cj. 11 - CEP 01452 
Fones (Oil) 219 6286 815-6723 - 814 0446 814-1110 
Telex: (Oil) 21157 MCPT (BR) ■ SSo Paulo - SP ^ Brasil 



^icrocomputaciores CRAFT 
a extensSo de sua mente. 



A1ICROCQ41PUTi1DORE5 ITDA. 

TtfJj. WllJ 212b2S&tf tflS&723 Sao Pdulo SP Bfasal 



Sinclair- sine: lair Sinclair sinci 



t;rs BO t:rs 80 i:rs 80 t:r^i 80 trs 



REM 

REM 

Rt"M- 

REM 

REM 

REM 

REM 

REM 

REM 



e;o*SiM 
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Ualdir Ferreira d(? Arruda 
Sao Paulo - SP 

CP 200 



i REM 

2 REM 

3 REM- 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 



IJ *^* h-J! O ^J A 



CI audcn i r Claud i o DoniKne 
Sorocaba - SP 

CP 500 



Muitas vezes quando estamos desenvolvendo algum progra- 
ma, sentimos a necessidade de localizar os DF, GOTO, LET etc. 
Para resolver isso, foi feito o programa a seguir, o qual lista na 
tela todos os comandos que se quiser. Nele, o usuirio dever^ 
infonnar 6 ARGUMENTO e entao todos os comandos apare- 
cerSo, inclusive com o numero da linha. 

Depois de digitado, o programa SCAN ficaii ap6s qualquer 
outro programa, jd que a sua numera9ao vai de 9966 a 9999. 
Sendo assim, 6 so comandar GOTO 9966 que ser^ requisitado 
o argumento desejado. 

For exemplo, para se pesquisai todos os IF deve-se digitar a 
letra U, pois 6 a tecla correspondente a esse comando. Pode-se 



tamb^m pesquisar argumentos que foram digitados com FUN- 
CTION, GRAPHICS, SHIFT... 



TESTE SUA INTELIG^NCIA: 

TESTE: SIM NAO 

1 — VOC^ OESEJA RESP08TAS H0NE8TAS AS SUAS r—i t~i 
DUVIDAS? U l—i 

2 — VOCi GOSTARIA OE SABER SE UM MICRO POOE f-, _ 
RESOLVER SEU PR0BLEMA7 U U 

3 — VOCE FICARIA SATISFEITO COM UH PROORAMA 

QUE ATEN0ES8E SUAS NECES9IDA0C8 SEM MODI- f-. p-, 
FICAR EM DEMAStA SEUS M^TODOS DE TRABALHO? U U 

4 — VOC^ PROCURA UM CURSO DE DBASE II, 
WORDSTAR OU SUPERCALC QUE REALMENTE EN- _, _, 
SINE A UTILIZAQAO PRATICA DESTES APLICATIVOS? U U 

5 — VOCg QUER MESMO t UM BOM CURSO DE BA- ^ r-i 
SIC. RAPIOO E EFICIENTE? U U 

6 — VOC£ PRECISA DE ASSIST^NCIA T^CNICA PARA _ —, 
O SEU DIGITUS DE ESTIMAQAO? U U 

7 — voce PRECISA OE UM MICRO NOVO OU QUER 
TROCAR O SEU VELHO. QUASE NOVO. PERFEITO E 
MARAVILHOSO POR OUTRO UM POUQUINHO ME- ■— , _, 
LHOR? U U 

8 — VOC£ ESTA DJSPOSTO A PAGAR PREQO JUSTO ^-i r— i 
POR UM SERVICO CORRETO? U U 

AVALIAQAO: 

(A) SE VOCE RESPONDEU SIM A UMA OU MAIS DE UMA DAS PER- 
GUNTAS, VOCE PRECISA IR UROENTE AJt A TESBI INFORMATICA 
BATER UM PAPO COM O LIEGE OU COM O MAAcIO. 

(B) SE VOCE JA FOI A TESBI. VOCE E MUITO INTEUQENTEl 

(C) SE VOCE VAI NA TESBI, VOCE E UMA PESSOA INTEUQEKTEI 

(D) SE VOCE AINDA NAO FQI A TESBI. n6S ENTENDEMOS; VOCE 
ESTA COM POUCO TEMPO, NAO E MESMO? 

K A 



p 



TESBI INFORMATICA LTDA. 

BLV. Za de Satsmbro 226. loja 110— Tsl. (021) 284-0B49. 



9964 


REM * MICRO SISTEMAS *-:5ChN 


9965 


REM UhLDIR FERREIRR DE hRRU 


Dfl 




9966 


PRINT " ARGUMENTO" 


9 9 6 7 


INPUT 3$ 


9968 

P 

9969 


IF 3$ = ^'^^ OR" 3$ = " '■ THEN 3T0 


FAST 


9970 


9n3i tg Q-3-II-. 


9971 


CLS 


997a 


PRINT "!=iRC-UMENTO = '^ ; 3$ 


9973 


PRINT 


9974 


LET X =16509 


9975 


LET Y=>.:+2 


9976 


LET L=256*PEEK X+PEEK (X + 1"J 


9977 


IF L ;■ =9966 THEN 3L0U 


9975 


IF L>=9966 THEN GOTO 9967 


9979 


LET C=PEEK Y+£56*PEEK tV+l; 


99i50 


FOR Z = Y + £ TO Y + C 


9981 


IF PEEK Z=126 THEN LET Z=Z-i- 


9962 

4 

99S3 


IF PEEK Z=11S THEN GOTO 99S 


IF PEEK Z=CODE 5$ THEN GOTO 


9 '5 S " 


■^ 


9984 


NEXT Z 


99b5 


LET X=Y+C+2 


99S5 


i"^0TO ■5Q75 


9967 


PRINT L: " ■• \ 


993S 


FOR Z=Y+2 TO Y+C 


9989 


IF REEK Z=125 THEN LET Z=Z+ 


9990 


IF PEEK Z=11S THEN GOTO 999 


9991 


PRINT CMR$ PEEK Z; 


9992 


NEXT Z 


9995 


PRINT 


9994 


GOTO 9965 


9395 


IF CODE 5$<3S OR CODE 3$::-63 


THEN RETURN I 


9996 


FOR N=:38 TO 53 


9997 


IF CODE S$=N THEN LET 3$=CH 


R$ n-4 + 192) 1 


9993 


NEXT N 


9999 


RETURN 



SCAN 



Este programa trata da influencia da lua sobre a gera?ffo hu- 
mana. Atrav^s dele, levando-se em conta as fases da lua, data 
do nascimento da mSe ou dos filhos anteriores 6 possivel pre- 
ver o sexo de uma crian^a. Vejamos como isso ocorre. 

Para o primeiro filho, examina-se a data do nascimento da 
mSe e considera-se as seguintes hipoleses: 

a) se a lua nova ocorrer antes de se passarem nove dias, de- 
pois do nascimento da mae, a primeira crian^a quer vier sera 
do sexo feminine; 

b) se a lua nova aparecer somente depois de passados nove 
dias, desde o nascimento da mae, a primeira crianfa sera do 
sexo masculino. 



Para outros filhos, considera-se a data do nascimento da 
cnan9a anterior, seguida das seguintes hipoteses: 

a) se a lua nova surgir antes de nove dias, depois do nasci- 
mento do filho anterior, a crian^a que -vier em seguida tera o 
sexo contrario ao daquela que a precedeu; 

b) se a lua nova aparecer nove dias depois da data do nasci- 
mento da crian^a anterior, entSo a seguinte sera do mesmo 
sexo da que a precedeu. 

Neste caso, especificamente, e necessario contar tamb^m os 
abortos e considera-los como data de nascimento de filhos an- 
teriores. 

Os dados e o texto deste programa foram baseados na revis- 
ta Almanaque do Pensamento. 



1 REM •••••■•••••...■■■••■■•■B 

2 REM ■ NOME DO PROGRAHA « 

3 REM • LUAN0UA/SA5 • 

4 REM ><«»•■■••«*■■■•■*■■•*•«« 

5 HEM 

10 CLSjPHINT CH»l(23)iPBINTa344,"LUfl NOWA~3«0, ''AUTOR CLAUOENIR 

CLAUDIO D0MENE"a5BB,"EMeBfiT£L ~ SOROCflBA" 

20 flS'lNKfYtilF fl«=""IHEN 20 

30 CLEARlCL5IR«*"INFLUENCIA DA LUA SOBRE A GERACAO HUMANA" 

10 T5=" 

SO PRINT TAB(1DIRS:PRINT TA8(10)Tt 

60 PRINTS20I!, "Par* o seu prlHClro ritho, exaMlnB-sB a data do na 

SCI- mento da nae." 

70 PRINT TAB<10}"PBra oa outros filhoa aHBgiina-se a data da nas 

ciHEntn da crlanca anterior." 

80 PRINT TAB<10)"No caso de aborto e' necessario levar em conta 

para as catculos." 

?0 PRINT TAB(10}"Eb(p prograns psta' prcparado para o seculo XX, 

.Bto c. do ano dp 1900 att" 1V99 d.c." 

100 PRINT TAB(lO>"Oados rclirados da rcv.sta 'Almanaiue do Pens 

anento'. Os dados a<)u i apresentados sao est at i st i croa ." 

110 PHINTa930,"TECLE <ENTEH) PARA CONT INUAR" IFOR I=J TO 300:NEXT 

JPRlNrS930." "!FOR 1=1 TO lOOlNEXT U 

IF Ai-lNKEYi:GOTO 110 

1?0 CLS:PB1NTB454,"» ■ • UM MOMENTO ESTOU RODANDO PROGRAHA • • 

■"!DIH NM<i2) 
130 DATA 4, 5. 5, 5, 5. 5, 6, 7. S, B. 9. 5, 11. 11, S, 13, 13. 5 
140 FOR 1=1 TO 12:READ NM<I}iNEXT ItDIM NA(IOO) 

150 DATA 0,18. 5, 7. 5, 26.!.. 15. 5, 4. 5. 23, 12. 5, 1.5, 20, 9, 26, 17. 6, 24. 5, 
14.3,21 .5.11 

160 DATA 0,18.5,7.5.26.5,15.5.4.5.23.12.5.1.5.20.9,28,17,6,24.5, 
14.3,21 .5,11 

170 DATA O, IB. 5, 7. 5,^6.5, 15. 5, 4. 5, 23, 12. 5, 1.5, 20, 9, 28, 17, 6, 24. 5, 
14.3,21 .5.11 

IBO DATA 0,10.5.7.5.26.5, 15.3.4.5,23,12.5, 1.5,20,9,28, 17,6.24.5. 
14.3,?1.5, 11 

190 DATA 0,18.5.7.5.26.5,15.5.4.5,23.12.5,1.5,20.9,28,17,6,24.5, 
14,3,21.5,11 

200 DATA 0,18.5,7,5.26.5,15.5 
210 FOR 1-0 TO 99:READ NACDsNEXT HCLS 
?20 PRINTa74,Ri:PRINT TAS(1D)TS 
230 P0ICE16916,3!CLS 

240 PRINTa3B4,"E ■ D prmeiro f M ho < S/N)"tF4-INKEYli IF Fl="" THF 
N 24l: 

250 IF FK>"S" AND F«< )~N" THENiGOTO 240 
260 IF F5="N" THEN 400 
270 PRINTa44B. I UNPUT-Meiis parabens qual «■ a datu do «eu naacin 



B n t o " s A* 

260 IF LEN(At><>6 GOSUB SIO'GOTO 270 

290 OEl=MID»CAi.l , 2) iMES=MID*< AS, 3,2) i AE«=MID»l AS, 5, 2 HD1=VAL (DE 

l>:Ml=UAL(MEt> 

300 IF Dl>31 OR Did Ofi Ml< 1 OR M1>12 THEN 550 

310 A-yAL<AESJilF A=D OH A=4 OR A"B OR A"12 OR 

=24 OR A"2B OB A=32 OR A-36 OR A-40 OH A=44 OR 



A=16 OR A-20 OH A 
A'4B OR A=52 OH A 



= 56 OR A=-60 OH A = 64 OR A-6a OR A-72 OH A = 76 OR A=80 OH A=84 OH A 
"88 OH A-92 OB A''9A THEN GOSUB 560 

320 PRINia320," Data do anlveraario "jDES;" 

/" [MEl ;■■/"! AE4)- 

330 DE-VALlOE»)!ME=VALlME*HAE-yAL(AFH JO=0EiM=NM<MEHA=Nfi<AE; IS 

=5.5*A-MiDN-0*9j IF S<=0 THEN S-S+29.5 

340 PRINTa394,-'A lua nova ocorreu »■ "jUSING-'NIC- ; S; iPR 

lNT"/"-|HE$('V"iAEi 

350 IF FS'-N" THEN 440 

360 IF S(D THEN S'^5*29.5 

370 IF DNJS THEN 390 

380 PRINT TAB(iO)-'Seu pri«eiro f.lho sera' um Undo men i no" :GOSU 

B 52U 

390 PRINT TAe(lO>"Scu primeiro filho sera' 'i*a Imda wenma'JGOS 

ua 520 

400 CLS 

410 PfiINTa256,"Seu ultmo filho e' laenino (M> ou (.enma (F)"iG«= 

INKETtaF 8*="" THEN 410 

420 IF Bl<>"n" AND B%(>-F" THEN GOTO 410 

430 INPUfQual a data do nasciaento do iiltmo filho "]A»:GOTO 

2B0 
44fi IF DN):^ THEN 480 
450 IF B»="M" THENiB«-"«ienln4" 
460 IF BS="F" THENiS4="nenino" 

470 PRINT TAB(10)"0 proxi.o fiera " "jBtsGOTO 520 
480 IF B* = "M" THENtS»='-»ienlno" 
490 IF Bl^'T" THENiS» = "iienlna" 

50C1 PRINT TABtia)"0 proKtBO sera' "iSltGOSUB 520 

510 CLSSFOH X'l TO lOiPH INT3515 , "Para data 01/03/83 digltc apcna 
« 010383, sen barras ok."tFOB 1=1 TO 300!NEXT UCLSiFOR I=t TO 5 
0:NEXr UNEXT x:hetuhn 

520 NM(1 )-4!NM<2)=5.5!PRINTa920,"Dc£eja novo calculo (S/N>","i*= 
INKEYHIF Q« = "" THEN 520 
530 IF 9K>"B" ANO 9*< )''N" THEN 520 
540 IF a5="S" THEN 230 ELSEiPOKE 16916. OiCLSiEND 

550 PfiINTa512.i !INPUT"Tenle a data de novo "|A*:G0TO 280 

560 PRINT8207,"a ■ ■ Este ano e' blssexto • ■ »" 
570 IF nl = l OH Ml-2 THEN NM(M1 >''NM(M1 ) - 1 
580 RETURN 
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Sinclair Sinclair Sinclair sincl 



i 


REM 


P. 


REM 


3 


REM 


A 


REM 


5 


REM 


6 


REM 


7 


REM 


e 


REM 


9 


REM 



:e If;-:: C3 r f~ r> o 



Marcel Q J- d.iry do Amaral 
R i o 6e Jane i ro -■ R J 

Tl< 95 



HORIZOHTAIS 
Setor 3 



Setor t 



Setor 
VERTICAIS 

Setor 1 



Este programa cria uma senha que 

bloqueia o acesso a mem6ria dos micro- 
corn putadores da linha Sinclair. Trata-se 
de uma pequena sub-rotina que pode ser 
aJocada em qualquer posi^ao de memo- 
ria, dentro ou fora do sistema BASIC, Setor 2i 

exceto na tabela de formata^So de vf- 
deo, e deve ser iniciada a partir do ende- 
re^o 16514, possivelmente dentro de 
uma linha REM. Uma vez acessada, apa- 
rece no setor superior esquerdo do vi- 
deo uma mensagem e um ponto de in- 
terroga9ao piscando em vfdeo reverso e 
normal, ate ser digitado o cddigo impos- 
to, quando o sistema lista o programa 
em BASIC que estiver na RAM e retor- 
na livre ao usulrio. Se isto n3o ocorrer, 
um NEW seri executado. 

A escolha da senha deve ser feita me- 
diante consulta i figura 1. No sistema 
operacional do TK, existe uma rotina — 
SCAN KEYBOARD - que efetua uma 
varredura no teclado indentificando se 
alguma tecla, e qual delas, foi pressiona- 
da. O teclado 6 dividido em setores ver- f^tgura 1 
ticais e horizontais e 6 a interse^So des- 
tes setores que evidenciam as teclas. O setor vertical e de res- 
ponsabilidade do registrador H e o horizontal, do L. Assim, se 
a tecla C for pressionada, o registrador L receber^ FEH e o H, 



Setor 1^ 



zimmmm 



w 



Fi fTirrirrinrir^rQir^ 



NEW 
LINE 



ishift|| 2 inn I c ifv" 



N 



M 



SPACE 



Setor 7 



SHIFT 




SetorOSetor2 Setor3 Setor*! SetorS SetorS Setor*Setor3Setor2 Setorl 



EFH. 

Consulte a figura 2 e veja tamb^m o Micro Bug (MS n9 33, 
pdg. 54) para o valor correspondente hexa de cada tecla. Con- 



Setor Vertical 


Registro H 


Hexa 


Setor Horizontal 


Registro L 


Hexa 


nenhuma tecla 


"11111111" 


'FF' 


nenhuma tecla 


"11111111" 


'FF' 


setor 


"11111110" 


'FE' 


setor 


"11111110" 


•FE' 


setor 1 


"11111101" 


•FD' 


setor 1 


"11111101" 


•FD^ 


setor 2 


"11111011" 


'FB' 


setor 2 


"11111011" 


•FB^ 


setor 3 


"11110111" 


■F7' 


setor 3 


"11110111" 


•F7' 


setor 4 


"11101111" 


>EF' 


setor 4 


"11101111" 


'EF' 


setor 5 


"11011111" 


•DF' 


setor 5 


"11011111" 


'DF' 








setor 6 


"10111111" 


'BF' 








setor 7 


"Oil 1 1 n V" 


'7F' 



Figura 2 
66 
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LD HL,(D-FH.E) 


2A 


OC 


40 


inicio da rotina 


INC HL 


23 






carrega HL com a la. posi^ao de video 


LD B , 1 OD 


06 


10 




B eera contador de LOOP 


• LD (HLl ,09H 


36 


09 




o caracter de codigo 9 e impresso 16 X 


INC HL 


23 






posi^ao aeguinte 


DJNZ,* 


in 


FB 




LOOP 


LD HL, (D-FILE) 


2A 


OC 


40 


HL recebe nova posii;ao da area de video 


LD BC,34D 


01 


22 


00 




ADD HL.BC 


09 








LD BC, 1 OH 


01 


10 


00 


HL e DE sao ponteiros de transferencia 


LD D,H 


5* 






de uma linha para video 


LD E,L 


■in 








LD HL, t6514D 


71 


R2 


40 


enderego da tabela de formatacao video 


LDIR 


ED 


BO 




tranafere um bloco de 16 bytes 


LD HL, (D-FILE) 


2A 


OC 


40 




LD BC,67D 


01 


43 


00 




ADD HL.BC 


09 






HL e DE aao preparados como ponteiros 


LD BC,150 


01 


OF 


00 


para tranaferir 16 bytes novamente 


LD D,H 


54 






que compoe a 3a, linha de video 


LD E,L 


"iD 








LD HL,16530D 


21 


92 


40 


enderei;o da tabela de formatagao 


LDIB 


ED 


BO 




tranafere 


LD HL, (D-FILE) 


2A 


OC 


40 




INC HL 


23 








LD BC,99D 


01 


63 


OC 


nova posigao no video 


ADD HL,BC 


09 








LD B, lOH 


06 


10 






•• LD(Hl,t,OAH 


36 


OA 




imprime o caracter de codigo OAH 


INC HL 


2J 






posi<;ao seguinte 


DJNZ,** 


10 


FB 




LOOP 


rot LD,HL, (D-FILE) 


2A 


OC 


40 


HL recebe a posi^ao que o sinal ? ocupa 


LD BC,aOD 


01 


50 


00 




ADD HL.BC 


09 








LD B,03H 


06 


03 






•*• LD (HL),OF 


36 


OF 




imprime o ainal ? 


LD (HL),OF 


36 


OF 




imprime o ainal ? em video reverso 


LD [HL),BF 


36 


BF 






LD (HD.BF 


■Kh 


HF 






LD [HLl, OF 


36 


OF 




imprime o ainal ? em vfdeo normal 


DJNZ,*»* 


10 


F4 




repete o procesao 3 veasea 


CALL KEY DEC 


CD 


BB 


02 


chama a rotina de varredura do teclado 


LD A,FF 


3E 


FF 




acumulador confere se foi pressionada 


CP H 


BC 






alguma tecla comparando com conteudo de H 


JR Z.rot 


28 


E3 




caso negativo volta a piscar o sinal ? 


LD A,— 


3E 


— 




aqui deve ser posto o codigo do set. vertical 


CP H 


BC 








JR Z,0K1 


2B 


04 




correto? compara com o setor horizontal 


CALL NEW 


CD 


C3 


03 


senao executa NEW 


BET 


C9 








OKI LD A,~ 


3E 


— 




■ aqui entra o codigo do setor horizontal 


CP L 


8D 






que e comparado 


JB Z,Ok! 


28 


OJ 




- se correto vai para 0K2, lista o programa 


CALL NEW 


CD 


C3 


03 


- incorreto executa NEW 


0K2 CALL LIST 


CD 


30 


07 


• aqui e listado o programa 


RET 


C9 






■ retorna ao BASIC devolve OS controles ao 
o[>erador . f im. 



Sepedo 

tinuando, se nenhuma tecla for pressionada, ambos retomam com o valor FFH. Isto 
significa que o usuario deve escolher uma tecla, ate mesmo SHIFT, NEW LINE ou 
SPACE, e inserir seu c6digo no endere90 apontado na listagem. Alem disso, deve-se 
por o comando USR de chamada logo apos ao comando SAVE de auto-preserva^So. 
Assim, ela sera imediatamente executada apos carregar o programa. Para testar a ro- 
tina, nunca use um comando direto tipo RAND USR e N/L, pois devido a velocida- 
de em que e processada, ela interpretard a tecla de NEW LINE como o codigo, po- 
dcndo destruir todo o trabalho. 

A tabela de fonTiata9ao de video i a seguinte: 

16514 80 A6 A8 AA B8 BB B4 80 B7 AA BB B9 B7 AE B9 34 

16530 29 2E 2C 2E 39 2A 00 38 2A 33 2D 26 85 OF 05 00 

Observe que a rotina deve ser executada a partir' do seu primeiro endere§o, po- 
dendo estar em qualquer posi^ao viavel de membiia. ■ 
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Nao se enrole 
com tantas linhas. 

Use um CD -200 

e deixe-as por 

conta da Rede 

Nacional de Telex. 




As informapSes precisam sempre 

chegar a todos os lugares em tempo 

mi'nimo e com qualidade maxima. 

Por^m, nem sempre 6 compensador 

para o usuario investir vultosas 

somas em terminals, linhas, 

modems, etc. . . 

Pensando nestes casos, a CONPART 
desenvolveu o conversor de dados 

CD-200, Com a instalai;ao de 

apenas um CD-200 e mais nada, seu 

computador, seja ele grande ou 

pequeno, fica interligado a Rede 

Nacional de Telex, possibititando 

intercambio de informapSes com 

qualquer terminal de telex 

I pertencente a rede. 

o 

< melhor de tudo i que o custo 
^ continua a ser o de um simples 
= telex. 

Consulte hoje mesmo a CONPART. 
Liguepara (021) 342.4800 

■ CONPART IndOstria 
JEletranica S/A. 
I Estrada dos Bandeirantes, 
1 2447 - JacarepaguA 
lRiodeJaneiro-CEP22700 
I Tel.: (021) 342-4800 
Telex; (021 ) 33296 ■ CPTX BR 




V. 



Sinclair" s i n c: 1 a i r" s i n c: I a i r sine: 



******************************************************* 
trs 8(1 t:rs 80 \:rs BO trs 80 t:re 
^U* ¥* t* J* **** ^^ ******** *4 **** *^ ***?** ^ :^ ****************** H ** *H* ************** *t ****************************** *i ******** *n 



REM 

REM 

REM- 

REM 

REM 

REM 

REM 

REM 

REM 



H; 3 R X R if^ I.-... 



Ar i st: I dps de M i randa Monrao 
B ^: 1 o Hor i zon t: e - MG 

TK 82~C 



1. R1-.M 

^ REM 

3 REM- 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 PFH 



9E' x: Hr: o ii.,.i! CI; n^-^h cm ^-^iaw "\r <:> ii-ii if-^ii r i: n:::; px i:> h;:-: h-" u. o c;:1. r tf:^ Mi ^^ a 



Ar i Mo fat: o 

]. F' a t: i n 9 a ■- M ( ■) 



Ci^ 500 



Esta rotina de impressao em espiral foi desenvolvida em um 
TK.82-C e pode ser utilizada nos microcompuiadores da linlia 
Sinclair em diversas aplica^oes. Os endere^os 16532, 16544, 
16557 e 16574 contem os codigos dos caracteres a serem im- 
presses. A rotina possui um contador de tempo e o endere^o 
16583 guarda o seu incremento (1 a 255). Ela deve ficar na 
primeira linha de um programa, pois possui um CALL NN e, 
para muda-la de posi9ao, deve-se ajustar esta instru9ao. Aiem 
disso, introduzindo-se zero (0) nos enderefos que contem os 
codigos dos caracteres a serem impresses, o resultado serS um 
CLS diferente. 

Para melhor entender a rotina Espiral, publicamos um pe- 
queno programa em BASIC. Ao iniciar este programa, na linha 



Espiral feito a partir do 
programa 




^- 












. .1 




■ 



£ PEM 




3 PRINT 


ESPIRAL' 


4 PRINT 


.."EsTR ROTINfl IMPRIM 


E EM E5PIRflL 05 CflRfiCTERES DEFI | 


NID05 N05 


ENDEREC0S=1653£, IS 


54.4,16557 


E NO 15574" 


S PRINT 


,,'0 ENDERECO , 16SS3 C 


ONTEM flP 


oil- liENTO DO TEMPORIZfi 


DOR 1-255' 




6 PRlh4T .,-t>IGITE 00/ TECLrt.. | 


, 


flPISTIDES MOURflO 3 


/1934 ■■ 




7 IF INKEY $ = ■■■■ THEN GOTO 7 1 


8 RRND 


USP 15514 


10 POKE 


15532,3 


11 POKE 


15544, 133 


12 POKE 


16557,131 


13 POKE 


16574,5 


14 RflND 


U5R 16514 


15 POKE 


15532,0 


16 POKE 


15544,0 


17 POKE 


16557,0 


IS POKE 


1d574,0 


19 GOTO 


3 


£0 SflUE 


•ESPIRAL" 


21 RUN 





1 REM, devem ser digitados 76 caracteres quaisquer. Para a 
introdu^ao do bloco assembler, deve-se usar o Monitor Assem- 
bler {.MS nP 23). Experimente tamb^m variar o conteiido do 
contador de tempo (16583). 



405£ 


2h 


t' '•-■ 4 y 


LD 


4055 


01 


-1 -1 ry. .-T. 


LD 


4035 


IE 


20 


LD 


40afi 


15 


15 


LD 


40;5C 


3t 


17 


LD 


405E 


r.R 




PUSH 


40SF 


'Z- "' 




INC 


40 '90 


"_■ !_■' 


05 40 


CALL 


40 '9 3 


;~:i=. 


00 


LD 


4095 


ID 




DEC 


4095 




p ~7 


, !P 


4093 


■T; i~': 




DEC 


4099 


3D 




DEC 


409h 


^■7 




LD 


409E 


09 




RDD 


40 9 C 


OD 


05 40 


CRLL 


40 9 F 


3F. 


00 


LD 


40H1 


15 




DEC 


40H2 


20 


FT 


JR 


40P4 


Dl 




POP 


40H5 


=!"? 




LD 


40H5 


ID 




DEC 


40H7 


r, cr 
1_ -_l 




PUSH 


40R5 


2E 




DEC 


40fl9 


CD 


05 40 


CALL 


40flC 


~',F, 


5 3 


LD 


40HE 


ID 




DEC 


40HF 


20 


f- "^ 


JR 


40B1 


Dl 




POP 


4052 


ID 




DEC 


4083 


15 




DEC 


40E4 


FE 


01 


CP 


40B6 


25 


00 


■JR 


4055 


ED 


42 


sec 


40Ehi 


CC' 


05 40 


CALL 


40 5 D 


:~;F, 


05 


LD 


40EF 


15 




DEO 


40C0 


20 


1- 1-1 


JR 


40C2 


=:'7 




LD 


40 C 3 


IS 


0'9 


JR 


40C5 


F5 




PUSH 


40 C 5 


-■:■=■ 

■_'U. 


QF, 


LD 


40 C 5 


5D 




DEC 


4003 


20 


FD 


JR 


4005 


Fl 




POP 


40CC 


i_:y 




RET 



00 



HL .. i. 400; 

BO . 00il 

E ,20 
D . 16 
P . 17 
DE 
HL 

4005 
(HL.i 
E 
NZ , 405?^ 

H 

ft 

D ,P 
HL , EC 
4005 

i.HL"! ,00 
C' 

NZ .4095 
DE 
D ,H 
E 

DE 
ML 
4005 

iHLi ,,5 3 

NZ . 40P5 
DE 



01 

Z : 40C-': 
HL ,E0 
4005 
(HLJ .0= 
D 
NZ : 405^ 

D .H 

40 5E 

flp 

H ,96 

P 

NZ , 40C^ 

PF 



O programa a seguir lista o diretbrio de imi disquete e per- 
mite a execu^^^o automatica de um programa escolhido, desde 
que este esteja em BASIC ou Assembler. Isto e' feito com a 
digita93o de apenas duas teclas. 

O diretorio a ser listado pelo programa e o que est^ no dri- 
ve 0, mas e possi'vel acessar o drive 1 , com a mudan^a da linha 
61 10 para CMD"D:1". Case o programa desejado nS'o esteja no 
diretorio apresentado, basta trocar o disquete e teclar ENTER 
que o novo diret6rio surgir^ em segundos. 

A capacidade mdxima de cataloga^So e' de 60 programas por 
disquete. 



Caso se deseje que AUTCAT/BAS rode ap6s o RESET e 
s6 criar um arquivo BUILD para substituir a digita95o. Para 
isso. digite em DOS Ativo a sequencia: 
AUTO DO CAT < ENTER > 
BUILD CAT < ENTER > 
BASIC < ENTER > 
< ENTER > 

< ENTER > 

< ENTER > 

RUN "AUTCAT/BAS" < ENTER > 
BREAK 



1 »EM"""» ■••■ 

2 REHaiio- PROORAHA CATALOGO PARA EXECUCAO AUTOMATICA ■■■■ 

3 REM""*' AUTCAT/BAS •••>• 
* RE«»»"« Por: An Morslo (0311 821-6446 ■••• 

5 RENoito* Caixa Postal 238 - 35.160 - tpatlnsa - HO. <•■••• 

6 BEM«»iiii ■■UK 

10 CLEAR 2O00i0eFINT U-ZiDEFSTR A-OIDItl G<631iCLS 

15 CMD"B",-'OFF" 

20 GOTO 6000 

30 CLS:PRINT9 0," ■«•• CATALOGO PARA EXECUCAO AUTOMATIC 

A •■•-EpRlNT STRING»C64,"-"1- 

40 PfilNT-TECLE NUMERO PARA ROOAH PROGRAMA, <EMTER> PARA REC 

ATALOGAR DR H>E '0'. <CLEAH) PARA SAIB, OU (BETA P/ CIMA> PAHA 

ROLAR A TELA < SCROLL ("IPfi INT STfl INQt(64 ,95) iPOKE 16916.7 
90 Z°lIU=tl 

100 FOR Y'O TO 48 STEP i6iG0SUB 70D0(PRINT TA8< Y> i A|0<Z) ; IZ-Z*! > 
IF G(Z) = '-" THEN Z-liQOTO 200 
110 NEXT»U=W'l;IF U<6 THEN PfilNTiGOTO 100 

200 PBINTlPRINT TAB(29)"SUA ESCOLHA "-»> ", 

490 B="" 

500 U-PEEK(14400>1IF U-1 THEN 6000 ELSE IF U-a THEN CMD"S" 

505 IF U-8 THEN PRINT STRlNflS( 48,8> , iQOTO 100 

SiO C-INKEYJilF C-"" THEN 500 

520 IF C<"0" OR C>''9" THEN 500 ELSE PRINT C| 

525 B-B'CtIF LEN<8)t2 THEN 500 

530 Z-WAL(B) 

1000 FOB r=l TO LEN(G(Z)HIF MID«(G( Z ) , Y , I )-" "THEN 1200 ELSE N 

EXT 



1100 GOTO 1300 

1200 Y-Y-1 

1300 F.LEFTKO(Z),r> 

1350 CMO"B","0N" 

1400 POKE 16916, 0<IF RIGHTKF, 3)""CH0" THEN CMD"I",G<2) 

ISOO RUN C(Z) 

6000 POKE 16916, OiCLSiPRINTS 520. "UH HOMENTO, POR FAUOR . 

60BO D=''DH1VE i"iFOH Z"l TO 26I0(Z)--"'tNEXT 

6090 V'-lSSAOiZ-l 

6100 E-"" 

6110 CMCDiO" 

6120 FOR Y=l TO 4iF0R X-D TO 11 

6130 E-E*[;HRt(PEEK{U+X>)iNEXT X 

6140 IF 0-LEFTKE,7> THEN 6150 ELSE 6160 

6150 Z«Z-liGOT0 6190 

6160 IF E-" " THEN 6170 ELSE 6180 

6170 Z-Z-HGOTO 30 

6180 G(Z)=E 

6190 E""" 

6200 Z-Z+ltVi>V+15iIF Z)63 THEN 30 

6210 NEXT Y 

6220 U-U+4 

6230 OOTO 6120 

7000 A-STRl(Z)!A''M10f<0,2,LEN(A)-I)«~." 

7020 IF LENtA>*2 THEN A-"0"*A 

7030 RETURN 

7040 REM"""" Fir* de Prggraaa ••*( 



AUTCATIBAS 



^ 



Programa- Exemplo 

68 



Espiral 



PARTICIPE 
COM SUA 
OPINIAO 



MICRO SISTEMAS 6 feita para voce. Escreva-nos contando suas 

expenencLas com seu micro, qual sua Srea de interesse, o que voce quer 

ver publicado e o que voce acha de MS. 

E lembre-se lodo leitor que nos escreve concorre automatica mente a uma 

assinatura anual de MICRO SISTEMAS^ 

Mande logo sua opmjao para a REDAQAO de MICRO SISTEMAS: 

Rio de Janeiro - Av Presidente Wilson, 165/grupo 1210, RJ. CEP 20030 

Sao Paulo - R Ohveira Dias, 153. Jardim Pauiista, SP, CEP 01433 



% 
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(;r5 80 tr^ BQ trs 80 trs 80 trs 



1 RKM 

4 ri::h 

5 REM 

6 RF-H 

7 Rl-H 

8 RHH 

^'> RRH 



...J iFz i:3 ij ^':=i «^ t„. E^: o R i: i^ O' <> 3 



HI Cf ^'i »:;;:: i--* 13 



R i D cle: Jane i ro ■ R J • 
CR 500 



computador, entre as 
suas iniimeras fun^Oes, apre- 
senta-se tambe'm como uma 
oportunidade de desenvolvi- 
mento de aptidOes criativas. 
Como a miisica, por exemplo. 

Embora a composi^ffo mu- 
sical num computador seja 
pouco trabalhada e divuJgada, 
ela oferece grandes momen- 
tos de sensibilidade. Isto com- 
prova que, aos admiradores 
da musica, tambdm a miqui- 
na pode proporcionar oca- 
siOes de descontra^So e criati- 
vidade, levando conseqiien- 
temente a uma aprecia^So 
musical. 

O prc^rama Jesus alegha 
dos homens foi elaborado em 
BASIC e tern como objetivo 
desenvolver nos usulrios de 
computador o gosto pela mii- 
sica, com demonstra9(5es gri- 
ficas e sonoras de efeitos agra- 
dSveis. 

Em sua elabora^ffo, o pro- 
grama apresenta v^as rotinas 
audio-visuais descobertas na 
linguagem BASIC, uma ao 
acaso, outras devidamente es- 
tuda^as. Entre as rotinas, des- 
tacamos o acionamento sono- 
ro e caracteres especiais e gr^- 
ficos encontrados no CP-500 
(por exemplo: instru9So 1830 
- utiliza^ao do 9, S e outros). 

O programa dever^ ser di- 
gitado tal qua] est^ na Usta- 
gem, uma vez que qualquer 
erro nas instru96es de 200 a 
1800 acarretari desafina^So 
das notas musicals e altera- 
fSo dos caracteres gr^ficos. 



»f««JESUS ALEGRIA DOS HOMENS*** 
P/COMPATiyEIS COM TRS-80 MOD.I/III 
JOSE' MARCELO DE FREITAS VILELA 
RIO DE JANEIRO TELF: (021 )~270 4380 



10 REM - 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
70 REM 

8D REM 

100 CLS 

105 G0SUS1900 

ilQ Z%=STRINGl(23," ") : V=VARPTR (ZS ) iLS=PEEK ( V+i ) : MS=PEEK (U+2) : L= 

LS+256*MS:IFL>32767THENL=L-&5536 

120 DATA 205,127,10,203,36,69,62,1,211,255,16,254,69,62,2,211,25 

5^16,254,37,32,239,201 

130 F0RG=LT0L+22 :READX:P0KEG,X. -next: I FPEEK( 16396) =201THENP0KE 165 

26,LS:P0KEi6527,MS ELSE DEFUSR=L 

135 U~0 

110 FORA=1T0500:NEXTA!U=U+1 

145 F0RA=192T0255:PRINTaA,CHR4(95>;:NEXTA!F0RA=a32rO895:PRINTaA, 
CHR%(95) ; iNEXTA 

146 F0RA=Sl2T0575:PRINTaA,CHRl(95);!NEXTA 

147 F0RA=256T05il:PRINTSJA,CHRS<45) ; :NEXTA 

148 F0RA=576T083l:PRINTaA,CHRI(45) ;:NEXTA 

149 FORA=lT050a:NEXTA 

200 SET f 1,20) :J~USRCiOa) : SET (2, 19) :J=USR<89) : SET (3, IB ) 1 J=USR (80 ) 

!SET{4,16): J=USRC65) :SET(5,i7) : J=USR < 75 ) : SET (6, 17) : J=USR (75 ) : SET 

(7,15) !J=USR(57>:SET(8,16) ■'J=USR(65) :SET<9,16) : J=USR(65) : SET (10 

13) :J=USR(4e) 

300 SET(li,14):J=USRf52):SET(12,13)!j=USR(48):SET(i3,16):J=USR(6 

5):£3ET(14,i8) :J=USR(BO) : SET ( IS, 20) : J=USR ( 100 ) : SET< 16 , 19) :J=USR(8 

9)!SET(17,iQ):J=USR(80) ;SET ( 18 , 17 ) : J=USR < 75) : SET ( 19 , 16 ) : J==USR ( 65 

) :SET(20,15) :J = USR(57> 

400 SET(21,i6):J=USR(65):SET(22,i7)!j=USR(75) = SET ( 23 , 18) : J=USR ( 8 

0) :SET(24,i9> :J = USR(B91 : SET (25, 18) :J=USR<8D> : SET (26, 2D) :J=USR(in 

0) :SET(27,21):J=USR(105):SET(28,20):J=USRf 100):SET(29 19) : J=USR( 

a9):SET<30.23):J=USR(i35) 

500 SET<31,2i):J=USR(105):SETO2,19): J=1JSR(89):SET(33,17):J=USR( 

75>:SETC34,18) = J=UBR (80 ) :SET ( 35, 19) : J=USR (89 ) :SET< 36, 18) = J=USR (8 

0) : SET (37, 20) sJ=USR(100) : SET (38, 19) : J=USR ( 89 ) : SET ( 39 , 18 ) : J=USR ( 8 

0):SET(40,16):J=USR(6S> 

600 SET (41,17) : J = lJSR(75):SET(42,17):j=USR(75):SET('»3,15).-J=USR(5 

7) :SET(44,i6):J=USR(65>:SET(45,16) :J=:USR<65) : BET (46, 13) :J=USRf4a 

) :BET(47,14) : J=USR ( 52) : SET ( 48 , 13) : J=USR ( 48 ) : SET ( 49, 16) : J=USR (65 ) 

:SET(50,ifl) :J=USR(80) 

700 SET(51,2a):J=USR(100):SET(52,19):J=USR(89) : SET (53 IB) :J=USR( 

a0)iSET(54,22):J=USR(120):SET(55,i6): J=USRC65):SET(56,i7); J=USR( 

75):SET(57,18)!J=UBR(80)!SETC58,19):J=USR(89):SET(59.20):J=USR(1 



DO) :SET'(60;23) :J=USR(i35) 

BOO SET(6i,20)sJ=USR(5.00)!SET(62,2i):J==USR(i05)sSET(63,20):J-USR 

<i00):SE:T(64,i8):J-USR(80>:SET(65,i6):J=USR<65):SET(A6,i3)=J-USR 

(48):SET(67,i6):J-USR(65):SET(68,i8):J-USR(80>:!SET(A9,20):J-U£>R( 

100): SET (70, 18) :J==USR(80) 

900 SET(7i,i6):J-USR(A5):SET(72,i4):j-USR(54):SET(73,i6):J-USR(A 

5):8ET(74,i8):J-U8R(8.0)sSET(75,20)rj=USR(100):SET(76,i8)=J=:USR(B 

0)=SET<77,lA)=J-USR(65):SET(78,i5):J==USR(57):SET(79,i7):J=:USR(75 

) ::SET(80,i9):J=USR(89) 

iOOO SET(8i,21):J-USRCi05):8ET<82,19):J-USR(89):SET(83,17):J==USR 

(75)s8ET(84,i6>=J-U8R(65):SET<85,18)5j=USR(80):SETC86,20):J-USR( 

J = USR(i20) =SET(88,20):J==USRCi00) : SET (89, 18) :J==UG 

:J=USR(75) 

J=USR ( 89 > : SET (92,21): J=USR ( 105 ) : SET (93,23)= J=USR 

:J=:USR(105):SET(95,19):j-USR(89>:SET(96,i7>:J-U8 



100)sSET(87,22) = 
R(80):SET(90,17) 
1100 8ET(91,19) : 
(i35):SET(94,21) 
R<75):SET(97,18) 
(80)SSET(100.20) 



19) 5 J=USR(89) :SET(99. 18) : J=USR 



Jesus Alegria dos Homens 



J:===USR(80) sSET(98 

J=^USR(iOO) 

1200 SET(10i,19):J-USR(89):SET(102,18):J=USR(80):SET(103,16):J=U 
SR<A5):SET(104,17):J=USR(75):SET(105,i7):j=USR(75):SET(i06,15):J 
-USR(S7):SET(107,lA):J = USR(A5):SET(i08,16):J=:UBR(A'5)sSET(109,13) 
:J=USR(48) :SET(ilO,i4):J=USR(52) 

1300 SET(lil,13):J=:USR(48):SET(112,i6)sJ=USR(A5):SET(ii3,18):J-U 
SR<80)5SET(114,20):J=:USR(lD0):S'ET(il5,19)3J=USR(89):SET(iiA,18)^ 
J=USJR(80)=SET(117,i7):J-USR(75):SET(il8,16):J-USR(65):SET(li9,15 
) =J=USR(57) sSET(120,lA):J=USR(65) 

1400 SET(i21,17):J-USR(75)=SET(i22,18):J-USR(80):SET(123,19):J-U 
SR(89)=SET(124,18):J-USR(80):SET(125,20)=J=USR(i00):SET(126,2i):i 
J-USR(i05):SET<127,20):J-USR(i00):SET(l,34):j=USR(89):SET<2,38) : 
SET(3 ,34):J==USR(i05) 

34):J-USR(89):SET(5,32):J=-USR<75)!SET<6,33):J-USR(80) 
J==USR < 89 ) s SET (8,33): J=USR ( 80 ) : SET ( 9 , 35 ) : J^USR ( 1 00 ) : SE 

T(10,34):J=USR<89):SET(11,33):J=USR<80):SET(12,31):J-USR(65):SET 
(13,32) :J-USR( 75) 

1600 SET(14,32):J=USR(75):SET(i5,30):j=USR(57):SET(lA,3i):J=I.JSR( 

65) : SET (17,31) : J=USR ( 65) sSET ( 18 , 28 ) :J=IJSR(48) : SET ( 19 , 29 ) : J==USR (5 

2)sSET(20,28):J.-USR(48):SET(2i,3i):J=USR(65):SET(22,33):J-USR(80 

) : SET (23, 35) :J=USR(iOO) 

1700 SET<24,34):J=USK(89):SET(25,33) : J=--=USR (80 ) 

120):SET(27,3i):J=USR(65):SET(28,32) :J=USR(75) 

80 ) : SET ( 30 , 34 ) : J=USR ( 89 ) : SET ( 31 , 35 ) : J=USR ( 100 ) 

i35):FORA=iT020:iNEXTA:SET(33,35)=J=USR(iOO) 

NEXTA 

NEXTA 

J-USR ( 105): FOR A=1T030: NEXTA: SET (35 



J=USR(135) 
1500 SET (4 
: SET (7, 34) 



SET (26, 37) :J=USR( 
SET(29,33):J=USR< 
SET(32,38):J-USR( 



35) :J=USR(100 



« REPETI *"-:P0KE15543 



>:PRINTCHR4(7):F0RB- 



1785 F0RA=iT030 

1795 F0RA:=iT030 

1800 SET(34,36) 

+ 256^*100) 

1830 IFW<2THENCLS:GOSUBi900:PRINT5)175 

,30sP0KE15544,15:G0T0140sELSE 1840 

1840 F0RA = 1 TO 1500: NEXTA :F0R>:^=iT0i6sJ=USR( 10 

1T05:NEXTB:NEXTA 

1850 CLS: END 

1900 PRINTiniO, "JESUS ALEGRIA DOS HOMENS 

Tenia coral da CANTATA 147"- 
1910 PRINTai38, ''MUSICA : J.S.Bach" 

1920 PRINT3906, "PROGRAMA s Jose 'Marcelo de Freitas 
1925 PRINTa986,"l 9";(D992,"8 4"; 
1930 P0l<Ei635D,i96 
1940 RETURN 



Vi lela" 
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*tM** t* ** *t **** tt tt t* 4* t*****t*tH* *************** 
s i n c I a i r s i 1 1 c: 1 a i i" ■■; i ii -::: l a i r s i n c I 
^*4t*^it******#*****t******t******t******t*t**********************************H* ******************»**********:*************** ******** 



Httttt* ************************************ *********** 
t:rs 80 t:rs BO trs BC) trs 80 trs 
****tt***ttttt**t**t**t*»t***t***************t****************************«************»************************************^**^** *********** 



1 RFM 

c^ REM 

4 REf\ 

5 re;:m 

6 REM 

7 REM 

8 REM 

9 REM 



i;:;: s t" x a-ii a i"" i: k..' rp:"^ i!3 lEr: ^.j" ^^ 2r: o ee: s 



Mor i h i Six Hot.:) a 
Sao Pan 1 o - SP 

Tl< 8S 



i REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 
B REM 
9 REM 



ir-li I...II O *^^ iM! O it-i F: .^''■' i:> rf:==ii T' ri'"* 



Lu i s Maur i c i o Chopard Bon i 1 s.nr i 
Rio dt- Jan(-: i ro - RJ 

cp ;';Dn 



Este programa foi desenvolvido num TK-85 para planeja- 
mento hidraulico de mini-usinas, mas pode ser utilizado para 
qualquer aproveitamento de curso d'agua, como abastecimeri- 
to e irriga^ao. Como os pequenos cursos d'agua geralmente nao 
possuem registros de vazao, foi desenvolvido um meio de trans- 
portar os dados de outros mananciais registrados no boletim 
fluviometrico, aplicando-os proporcionalmente. Todos os valo- 
res sac obtidos proporcionalmente a vazao m^dia de longo ter- 
mo. A vazao media e baseada na area da bacia contribuinte e 



na precipila9ao media anual de cada bacia. 

O grande desafio no planejamento hidraulico e a determina- 
930 da vazao maxima para dimensionamento do vertedouro. 
Neste programa, aparece a vazao maxima (normal), mas reco- 
menda-se para vertedouro uma capacidade maxima de no mi- 
nimo 10 vezes a vazSo media para cheia excepcional. Este tra- 
balho leva em conta que a bacia hidraulica esteja localizada em 
area rural (mata, campina ou cultivada) e que a precipita^ao 
media seja maior que 1.000 mm/ano. 



1 PEM E5TIMhTIUR;5 DE 'JhZOES 


£60 PRINT RT 4,0;"ORZhO MEDIR 


£ REM ** MORIHISh HOQfl *± 


■' ; QM ; "- L/5- ; RT 6.0; "UfiZRG MINIHR 


IS PRINT hT 4 , 7; ■■ESTIMfiTIUlH DE 


■"' ; 01 ; " L/S" : RT S , ; "URZRO. REGU 


URZOES" 


LRRIZRDR; ";0R.; " L/5";RT 10,0; ''■-JR 


£0 PRINT hT 6.2; "R - URZRO MED 


ZRO MRXIMR- ";Q5;" L/3" 


IPi":HT 8,£;''e - UfiZflO MINIMfi^'.lST 


£70 PRINT RT 14.0; "SE GUER CRLG 


10.2; "C - UhZhO regular IZhDP ",; Pi' 


ULRR POTENGlH iOfloO DE MINI USIN 


T 12.2; "D - '..iRZPiO MfiXIMfi" ; RT 21, 


HJ DIGITE N/L.'^ 


9 . " P D E C M E C H K ? \ 5 / N ) ' ' 


£60 IF INKEY$="" THEN GOTO 230 


30 IF INKEY« = "" "THEN GOTO 30 


£90 PRINT RT 17.0; "QURL E H QUE 


40 IF INKEY$ = "N" THE^4 STOP 


DR UTIL 7 EM M, " ,; 


50 CL5 


300 INPUT HU 


60 PRINT RT 6,0;"GURL E R RRtR 


310 PRINT HU; '■• M" 


Dfl BRCIR CONTRIBLf-INTE ? EM KMS 


3£0 LET P=INT i . 007*GR*HU:i 


■' 


330 LET PR=2*R 


70 INPUT RD 


340 PRINT RT 19 , ; "POTENCIR r IR 


30 PRINT The 5;RD;" KM2" 


ME:":P;" Ky:RT 21 , ; "POTENCIR I 


90 i='RINT hT 9.0;"GURL ERR 


NSTRLRUEL. " ; PP; '■'' KU" 


REGI-'ITRCRO MEDIRRNURL DR BRGI 


350 STOP 


H ■"- EM MM/RNO^' 


400 CL5 


100 INPUT PMR 


410 P R I HT hT 3,2;" Q URL E 'J L U 


110 PRINT TRB 5; PMR;" MM/RNO" 


ME UTIL DO RE5ER-URT0RI0 DE REGU 


120 LET OM = INT f . 009*PMR*RD:i 


LRRIZRGRO '7 EM M3" 


130 LET UUM=25*QM**2 


420 INPUT UU 


140 PRINT RT 12,3; "GRLCULO DR U 


430 PRINT UU; '■'■ M3" 


hZRO PEGULhRIZhDR" 


440 PHU5E 100 


150 PRINT RT 14,0; "UOGE TEM '..'OL 


450 CL5 


UHE UTIL do RE6ERUR-TURI0 7 CR5G 


460 RETURN 


-1-';hT 17.0; ''UOGE TEM FRTGR DE R 


500 CLS 


EGULHRIZRGRG7CR50-2" i RT £1,9; "DI 


510 PRINT RT 3,2;"0URL E G FRTO 


SITE 1 OU 2" 


R DE REGULRRIZR-CRQ-'" 


160 IF IN K. E "f S = ^ ' ■ ' • T H E h'J G CiT 160 


520 INPUT F'R 


170 IF INf^EY$ = ^ 1" THEN GOSUB 40 


530 PRINT RT 5:2;"FR= ''iFfi 





540 IF Fh:.23 then LET FR=.23 


130 IF INKEV$="2" THEN GOTO 500 


550 LET UU=0M**2* i. (5*EXR i£.32D 


190 LET X=25*^;U/UUM 


*FR- . 5;j49;! J -H'i 


£00 LET Fh = . 43 *LN ( ( X +5 ) /5 ) + . 23 


555 CLS 


£10 IF iJU;■=^.•*Uh THEN LET FR=1 


560 PRINT hT 2 , 0; "UOLUr-tE UTIL'" 


£20 LET G6=INT f4*QM) 


ijij; ■ M3" , ■■PRRR RE5ERURT0RI0-' 


£30 LET QI = INT f .£3*0M:i 


570 PRU5E £00 


£40 LET QR = INT i.FR^QM) 


530 CLS 


250 PRINT RT 2 , 5 ,; " UflZRQ E5TIMRD 

H " 


590 GOTO £20 



Esfimativa de Vazoes 
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Desenvolvido para ser utilizado noCP 500 com um ou mais 
drives, este programa tern por objetivo mudar nome e a data 
de disquetes usando o DOS 500. Para isso, basta colocar um 
disquete com DOS 500 no drive e dar entrada com o pro- 
grama em BASIC. Ao iniciar o programa, o computador ira es- 
perar o usuario entrar com um dado; 70 INPUT AS... Deve-se 



5 CLS 

10 POKE 16561, 238!P0KE 16562, 190!CLEAR 1000 

20 FOR N=-16656 TO -16644:READ A:POKE N,A:NEXT 

30 DEFUSR=-i6656!Nil=""iNi=VARPTR(Nl%) 

40 POKE Ni,l78iP0KE Nl+i,48:P0KE Nl+2,19i 

50 DATA 17,15,0,1,0,0,33,0,191,205,0,70,201 

60 FOR F=l TO 178 

65 PRINTS) 0,N5[ 

66 PRINTS) 896,"9UAL No. HEXADECIMAL " ; 

70 INPUT A5sB4=LEFT5(Ai,l)nCl=RIGHT%(A*,i> 

80 PRINTS 896,STRING5C26," ")j 

90 IF ABCCB%))64 THEN B1=STR1 ( ASC( Bl) -55) 

100 IF ASC(Cl)>64 THEN CS=STR% ( ASC ( C* ) -55 ) 

ilO A=UAL(B$)«i6+yALtCi) 

120 Nl=Nl+CHR%CA) (NEXT 

130 MID4(Nil,l,178)=N»!X'»USR(0) 

140 END 



NomelData 



1 


00OF30: 


0AD6 


A0A4 


A4A4 


A4A4 


A4A4 


A4A4 


A4A4 


A4A4 


000F40: 


A-IA^ 


A4A4 


A4A4 


0AD6 


99C3 


AOBO 


90C7 


BOBO 


0O0F50: 


C388 


910A 


D6A6 


C383 


808B 


B4A0 


BCBC 


B4A0 


000F60: 


9E81 


8281 


C2A2 


840A 


D699 


C5A0 


BA87 


ABBF 


OODF70: 


83AF 


B0C5 


8891 


0AD6 


A6C5 


BEBF 


B2BA 


BFB2 


OOOF80: 


BABF 


94C4 


A284 


0AD6 


99C5 


8BAF 


B4B3 


B3Etl 


000F9O; 


BE8F 


81C4 


8891 


0AD6 


A6C5 


8A8C 


8E85 


808F 


OOOFAC: 


8C8E 


C5A2 


840A 


D689 


9898 


9898 


9898 


9898 


OOOFBO: 


9898 


9898 


012C 


F051 


9898 


9898 


9898 


9881 


OOOFCO: 


2020 


2020 


2020 


2020 


2020 


2020 


2020 


2020 


OOOFDO: 


2020 


2020 


2020 


2020 


2020 


2020 


2020 


2020 


OOOFEO: 


200D 































Niimeros Hexadecimais 



entao digitar os niimeros hexadecimais um por um. logo apos 
temiinar o programa de RESET. Se tudo for digitado correla- 
mente.o monstrinho sorrira.Com este programa pode-se lam- 
bem criar qualquer desenho, bastando apenas respeitar o 
numero de caracterese os hexadecimais 01. 2C, FO. SI e OD. 



GRAFIX MX 80/100 

as impressoras brasileiras com a 
tecnologia mais vendida do mundo. 




Compre para seu microcompulador, a 1^ impres- 
sora matricial brasileira (compativel com todos os 
micros nacionais), que escreve fluentemente em por- 
tugues, com todos os acentos. cedilhas e caracteres 
especiais da nossa lingua, 

Alem de escrever com dezenas de tipos gr^ficos 
diferentes (se necessario at^ em iapon§s) em alta ve- 
locidade -100 c, p. s. com procura logica. imprimetam- 
bem graficos. desenhos e imagens de alta resolugao; 
120 pontos/polegada, 

Venha na SACCO. conhecer as impressoras GRA- 
FIX MX 80/100, e assista uma demonstragao com um 
microcomputador de 16 bits. 



Al Gabriel Monteiro da Silva, 1229 

J. Paulislano ■ Tel.: (Oil) 852-0799 

01441 ■ Sao Paulo - S.P, 




J 



a p p 1 e a p \> 1 c: 'A p p 1 c: a p p 1 e a p p 1 fc' a f 



REM 

RKiH 

REM 

rf:m 

REM 
REM 

REM 
REM 



H-" <> R «■:: A 



A r in a n d o b c a r C t-x v a i*^ h a 
R i o cle Jane i ro - Rvi 



Ihn 



ri<' 2000 



Neste jogo. o numero de chances que voce tem paraacertar 
a palavra segredo e praticamente o dobro do numero de carac- 
leres que essa palavra conleni. Sendo assini, quando voce esgo- 
ta as suas chances, seni ter desvendado o misterio. voce e en- 
forcado de uma so vez!!! 

Quando voce tecia uma letra repetida. aparece uma mensa- 



gem e um som de alerta. Ja quando voce completa a palavra, 
antes que esgote as suas chances, voce recebe uma mensagem 
de parabens. 

Agora, aten9ao! Quando voce erra pela primeira vez, o mi- 
cro perdoa, mas a partir da segunda ele come^ara a se indignar: 
VOCE DE NOVO? 



10 


REM FORCA 


500 Z=2+l: IFZ>2*C THEN 600 


15 


REM ARMANDO OSCAR CAVANHA FILHO 


506 VTAB 4: HTAB 30: PRINT "ERRO N» " 


20 


TEXT : CLEAR : HOME 


;Z 


25 


DIM R*( 100) 


510 GOTO 90 


27 


VTAB 10 


600 HPLOT 30,55 TO 50,55 TO 50,75 TO 


30 


INPUT "PALAVRA SEGREDO " ; P* 


30,75 TO 30,55 


40 


HOME : HGR : HCOLOR = .3 


610 HPLOT 35,58: HPLOT 45,56: HPLOT 3 


42 


FOR Y = 1 TO 4: SOUND 50,15: NEXT 


5,62 TD 45,62: HPLOT 33,70 TO 47, 

70 

620 HPLOT 30,55 TO 20,50: HPLOT 50,55 


45 


VTA& 1: HTAB 5: PRINT "F R C A" 


50 


HPLOT 10,150 TD 270,150: HPLOT 10, 


TO 60,50 


152 


TO 270, 152 


621 HPLOT 40,75 TO 40,125: HPLOT 40,1 


60 


HPLOT 17,150 TD 17,20 TO 40,20 TO 


25 TD 36,145: HPLOT 40,125 TO 44, 


40,55 


145: HPLOT 36,90 TO 44,90: HPLOT 


70 C = LEN (P*) 


36,90 TO 34,110: HPLOT 44,90 TO 4 


80 


FOR I = 1 TO C: HPLOT 7 » I + 48,1 


6,110 


20 TO 7 * I + 43,120: NEXT 


622 VTAB 5: HTAB 10: PRINT "VOCE DE N 


87 


VTAB 2: HTAB 30: PRINT ■'CHANCES="; 


OVO??" 


2 * 


C - 1 


623 VTAB 8: HTAB 10: PRINT P* 


90 


VTAB 21 


625 SOUND 100,120 TO 100,120 TO 250,2 


100 


PRINT "QUAL A LETRA ? "t GET L* 


40 


lOl 


GOTO 800 


630 GET U*: GOTO 20 


102 


VTAB 21: HTAB J + 20: PRINT L* 


700 VTAB 5: HTAB 10: PRINT "PARABENS" 


105 


J = J + 1:H = 


: SOUND 100,120 TO 100,120 TO 30, 


110 


IF J ; 2 * C - 1 THEN 600 


240 TO 3O,240: GOTO 630 


120 


FOR K = 1 TO C 


800 R = R + 1:R*(R) = Lt 


130 


M* = MID* (P*,K,1) 


810 IF R = 1 THEN GOTO 102 


140 


IF Lt- = M* THEN GDSUB 400 


820 FOR I = 1 TO R - 1 


150 


NEXT 


830 IF L* = R*(I> THEN 900 


160 


IF H = THEN 500 


840 NEXT 


170 


GOTO 90 


850 GOTO 102 


4O0 


VTAB 15: HTAB K + 7: PRINT L*:H = 


900 VTAB 23: PRINT "A LETRA " ; R* < I ) ; " 


1 




JA FOX TECLADA": SOUND 50,30 TO 


410 


E=E+l:IFE> =C THEN 700 


200,30 TD 30,60: GOTO 90 


420 


RETURN 






j& 



Forca 
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1 APPLEKIT 65000 1 Placade circuito impresso. I APPL EK1T65010 I Conjunto dc soquetes. concctores. resistores e ca- 
pacitores. I APPLEKIT 650201 Conlunto de semicondutores, TTL's, LSI e memorias {As memorias EPROM sao forncci- 
das co m grava^ao). I APPLEKIT 651001 Conjunto de teclado alfan umcri co com 52 tcclas e componentes, circuito im- 
presso. r] &PLEKrr652Q0l Fonte de allmenta^ao tipo chaveado. I APPLEKIT 65300 1 Calxa dc microcomputador cm 
poliurctano. [APPLEKIT 65400 1 Manual de montagem c teste de micro. 

APPLEKIT e 100% compativel com os cartOes perifericos da MICROCRAFT- ■ app^ i marca regis.rada de Appi.- inc. 
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t* tHHH* t* t* *H* *t *t ** *t ** tt ♦***«**«** tt tt tt t* *H* * 

t: r s 8 i: r s 8 t: r <^ B C) t r =; 8 f: i- ?i 



i RE-M 

3 kf:m- 

4 REM 

^i RFM 

6 REM 

7 RFM 
B RFM 
9 RFh 



:I:;t: Hi::;: jt-h #-^1 f- <:> r: <:> 



-J 1.) r' 9 p M iA n I i. e I T' » (^ 'A r v r 1 1 1 o <;■: 
R i c> e1 p J a n e i r o - R ...I 

8nni, 



A I" n ^ ) d (.") (■; f:-: <:; a r d p P "a i v a C; h i a f a 



Este programa destina-se a calcular o 
tempo das fases do ciclo de sinal lumi- 
noso num cruzamento de duas ruas, e 
pode ser utilizado em microcomputado- 
res da linha TRSSO. Os calculos mate- 
maticos aplicados se baseiam no M^todo 
de Wesbter, ja tendo sido testado com 
sucesso em diversos pontos do Rio de 
Janeiro. 

A utiliza9ao do programa 6 de facil 
compreensSo por t^cnicos e engenheiros 
que militam nesta atividade, ja que to- 
dos OS INPUT (entrada de dados) sSo 
precedidos de mensagem especffica, fa- 
cilitando o usuario, 

Apos a coleta de dados no local em 
que se deseja aplicar o programa, ou se- 
ja, a conlagem dos volumes de trafego 
das diversas ajwoximai^es existentes e 
dimensOes (!argura) dos logradouros, 
seleciona-se o horario cujos volumes ob- 
tidos sSo maximos. 

Uma vez feito isto, entramos com a 
ordem de chamada destes dados, esciare- 
cendo ao operador o significado das se- 
guintes siglas: 

VAD - Volume de automoveis a direita 
VOD - Volume de onibus^ direita 
VAF - Volume de automoveis em fren- 



te 



VOF - 
VAE - 



Volume de onibus em frente 
Volume de automoveis k es- 
querda 
VOE - Volume de onibus k esquerda 

Para cada aproxima^ao, estes valores 
deverao ser fornecidos na ordem de cha- 
mada, mas quando nao existir efetiva- 
mente uma aproxima^ao, devemos usar 
seguinte artifi'cio: com rela^ao h largu- 
ra de aproxima^ao, entramos com um 
valor qualquer maiorque zero, de prefe- 
rencia alto; e quanto aos volumes da 
aproxima^ao VAD, VOD, VAF, VOF, 
VAE e VOE, um desses valores devera 
ser maior que zero e menor que um, en- 
quanlo os oulros podem ser zero. 

Terminada a entrada das dimensOes 
dos logradouros e os volumes de trafego, 
o computador pede o tempo morto 



76 



iNTa 

1/83 



tT:FO 

:t<o. 



17i 
:NEX 

■1J,2 
STE 

J) : 
;SET< 

TsFO 

T<0. 



:NEkT 



5 CLS 

15 PRINTai39, "PROGRAMA PARA CALCULO DE CICLO DE SEMAFORO' ! PR 

210, "COM DUAS FASES DE APR0XIMACA0":PRINT8343 , "DETRAN-R J N.O 

"!PRINTa't59,"P0R:"iPRlNTa593,"ARNALD0 CHIARA E JORGE MANUEL" 

14 PRINTa72S,"SETEHBR0 DE 1983" 

20 FOR J=0 TO 1275SET<J,0) :NEXT:F0R J=0 TO 47:SET( 127, J> sNEX 

R J-127 TO STEP -1 !SET( J,47) iNEXT :FOR J=47 TO STEP -USE 

J)BNEXT 

30 FOR 1=1 TO 20aO!NEXT!CLS 

35 PRINTa549,"FASE A":PRINT3906,"FASE B" 

40 FOR J-3 TO 17iSET(45,J> :NEXT:F0R J=45 TO lO STEP -i:SET(J 

lNEXT:FOR J=»10 TO 45:SET( J, 29) jNEXT:FOR J=29 TO 44:SET<45,J> 

T 

50 FOR J=44 TO 29 STEP -1 jSET( 75, J) iNEXTiFOR J=75 TO 109:SET 

9):NEXT!F0R J=i09 TO 75 3TEP -1 iSET(J, 17) :NEXT:FOR J-:17 TO 3 

P -HSET(75.J)»NEXT 

60 FOR J=3 TO 44!SET<55,J)sNEXT:F0R J=44 TO 3 STEP -1:SET(65 

NEXT:F0R J=I0 TO 109!SET( J,25) JNEXTsFOR J=in9 TO 10 STEP -1: 

J, 21) :NEXT 

70 FOR J=0 TO t27!SET<J,0MNeXT!F0R J=0 TO 47 :SET £ 127 . J) :NEX 

R J=127 TO STEP - 1 1 SET ( J , 47 > SNEXT IFOR J=47 TO STEP -1:SE 

J):NEXT 

75 FOR J=0 TO lOOOsNEXT 

80 FOR J=0 TO 2000:NEXTtCLS 

100 PRINT" APROXIMACAO i DA FASE A"!FOR J=0 TO 127 : SET ( J , 3 ) ; 

:PRINT:PRINT 

110 G05UE) 310 

120 PRINT 34,01, Yl 

130 Sl=S:Ql=Q:Yt=Y 

140 PRINT Sl"yEIC/H",Ql"yEIC/H",Yl 

142 PRINT"PARA PROSSEGUIR DIGITE 'NEU LINE'":INPUT Yl:IF Yl=" " 

GOTO 150 

150 CLB»PRINT"APROXIMACAO 2 DA FASE A":FOR J=0 TO i 27 : SET ( J , 3 ) : N 

EXTiPRINTsPRINT 

160 GOSUB 310 

170 PRINT S5,Qi,Yl 

180 B2-S:Q2-Q:Y2=Y 

190 PRINT S2"yEIC/H",Q2"VEIC/H",Y2 

195 IF Y1>Y2 THEN XI =Y1 : PR INT"INDICE DE SATURACAO FASE A="X1:G0T 
198 

196 Xl=Y2:PRINT"INDIC£ DE SATURACAO FASE A="X1 

198 PRINT"PARA PROSSEGUIR DIGITE 'NEW LINE"':INPUT YI:IF Yl=:" " 

GOTO 200 

200 CLS:PRINT"APROXIMACAO 1 DA FASE B":FOR J = TO 127 :SET ( J , 3 ) :N 

EXT:PRINT:PRINT 

210 GOSUB 310 

220 PRINT SS.QS.Yt 

230 S3='S!Q3-Q!Y3=Y 

240 PRINT S3"yEIC/H",Q3"yEIC/H",Y3 

242 PRINT"PARA PROSSEGUIR DIGITE 'NEW LINE'": INPUT Y%:IE Y»=" " 

GOTO 250 

250 CLS«PRINT"APR0XIMACAO 2 DA FASE B":FOR J=0 TO 127 ! SET < J , 3 ) : N 

EXT:PRINTiPRINT 

260 GOSUB 310 

270 PRINT S%,QS,Yt 

280 S4=S!04=Q:Y4=Y 

290 PRINT S4"yEIC/H",Q4"yEIC/H",Y4 

295 IF Y3>Y4 THEN X2aY3 ; PR INT" INOICE DE SATURACAO FASE B="X2:G0T 

410 



300 X2-Y4iPRINT"INDICE DE SATURACAO FASE B=»"X2!G0T0 410 

310 INPUT"ENTRE COM A LARGURA UTIL EM METROS"»L 

315 S-L<»525iPRINT S"yEIC/H" 

330 INPUT"ENTRE COM OS SEGUINTES DADOSiyADiUODjyAFiyOF,yAEj VOE"f 

yi,y2,y3,y4,y5,y6 

340 Q=i.4»yi+3.2»y2+y3+2.2»U4+1.6tiU5+3.6»y6 

350 Y=Q/S 

360 S%=-"CAPAC.APROX."iQS«"DEHANDA APROX.": Yl="IND. SATURACAO" 

390 RETURN 

410 PRINT"CALCULO DO INOICE DE SATURACAO DO CRUZAMENTO": YX*X1+XZ 

SPRINT YX 

420 PRINT"TEHPO HORTO" 

430 INPUT"TEMPO 'ALL RED'"jR 

4^0 T=R+iatPRINT T "SEGUNDOS" 

450 PRINT"CALCULO DO CICLO OTIMO" 

460 C=tl.5*T+5)/<l-YX)!pRINT C"SEGUNDOB" 

461 IF 0120 THEN PR 1NT"ELIM1NE OS GIROS A ESQUERDA AFIM DE VIAB 
ILIZAR ESTE CICLO. - PARA RETORNAR AO INICIO DO PROGRAMA DI 
GITE CONT E APERTE A TECLA 'NEW LINE '"iSTOP :GOTO 10 

462 FOR J=0 TO lOOOiNEXT J 

470 PRINT'XALCULO DO WERDE EFETiyO DA FASE A";yA=Xi«(C-T)/YXiPHI 

NT" yA="yA"SEGUNDOS" 

490 PRINT"CALCULO DA FILA MEDIA DA FASE A" 

500 IF Y1)Y2 THEN Q=Ol!GOTO 520 

510 Q='Q2 

520 R I ■'C-yA :Q-G/3A00 !FA=R 1»Q!PR rNT"FA«"FA"UEICULOS" 

540 IF Y1>Y2 THEN S=31bG0T0 560 

550 S=S2 

560 GA«(Q«C«36Q0)/(yA»tS) :PRINT"GRAU DE SATURACAO DA FASE A GA-"G 

A 

570 PRINT"CALCULO DO VERDE EFETiyO DA FASE B":yB"X2«(C-T)/YX!PRI 

NT" yB="yB"SEGUNDOS" 

590 PRINT"CALCULO DA FILA MEDIA DA FASE B" 

600 IF Y3>Y4 THEN K=Q3:G0T0 620 

610 K=Q4 

620 R2=C-yB!K=K/3600tFB=R2*tKiPRINT"FB"'TB"VEICUL0S" 

640 IF Y3>Y4 THEN Z=S3!G0T0 660 

650 Z=S4 

660 GB=-(K»C»3600>/(yB»Z)BPRINT"GRAU OE SATURACAO DA FASE B G8»"G 

B 

670 PRINT"PARA PROSSEGUIR DIGITE 'NEU LINE'"!lNPUT Yt;IF YS=" " 

GOTO 700 

700 DIM CA<6),VA<6),FA(6),GA(6>,yB<6),FB(6),GB<6> 

705 TA=50:FOR 1=0 TO 6:TA=TA+10:CA{ I >»TA 

710 yA(I)=Xl»CCA(I)-T)/YX!Rl=CA< I >-VA< I ) !FA( I )-R l»aiGA< I ) = (Q»«360 

0»CA(I) )/(yACI)»S) 

715 yA(I)=INT(yA<I )) tFA( I )=FA ( I ) «100IFA ( I ) =INT ( FA C I ) ) sFA(I)=FA(I 

)/iOO:GA<I>=GA(I>»100:GA(I>=INT(GA<I) ) :GA< I )=GA< I )/100 

720 yB(I)=X2ttfCA(I)-T>/YX:R2=CA(I)-yB{I) :FB< I )=R2»K :GB( I) = (K»360 

OttCA<I))/(yB{I)«Z> 

725 yB<I)=INT(y8(I) ):FB(r)=FB(I )»H00tFB( I) =INT(FB (I ) )!FB(I)=Ffl<I 

)/100:GB<I>=GB< I ) tt 100 : GB < I) =INT (GB < I > ) : GB < I >-GB < I ) /lOO: NEXT I 

730 CLSsPRINT TAB ( 1 ) "CICLO"TAB ( 09)"yERDE A"TAB ( 17 ) "FILA A"TAB(25 

)"GSAT.A"TAB(33)"yERDE B"TAB (41 >"FILA B"TAB (50)"GSAT.B" 

740 PRINT 

750 FOR 1=0 TO 6 

760 PRINT TAB(l)CA(I>TAB<iO)yA(I)TAB<15)FA<I)TAB(25>GA(l)TAB<34) 

yB(I)TAa(40)FB<I)TAB(50)G8(I) 

770 NEXT I 

780 FOR 1=0 TO i 20:SET < I , 4 ) i SET ( I , 28 ) :NEXT IsFOR 1=4 TO 28iSET(0 

,I)sSET(12,I):SET(12Q,I):NEXT I 

810 PRINT 

815 PRINT 

820 PRINT"PARA CALCULAR OUTRO CICLO, DIGITE 'RUN' APERTE 'NEU LIN 

E '" 

830 END 
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Semaforo 



ALL RED. Esclarecemos que para esse 
tempo, o programa ja cont^m o valor de 
10 segundos. Qualquer modifica(;ao nes- 
te valor, para mais ou menos, devera ser 
inlroduzida, Se o valor desejado for 10 
segundos, basta pressionar a tecia NEW 
LINE ou ENTER ou RETURN, confor- 
me o micro. 

A partir deste momento, o programa 
come9a a fornecer os resultados para es- 

MICRO SISTEMAS, novembro/S4 



ta situa9ao: inicialmente, os tempos, fi- 
la e grau de satura?^© do cruzamento 
para o CICLO OTIMO; em seguida, o 
programa imprime na tela ou na impres- 
sora (se usarmos o comando LFRTNT) 
uma tabela com lodos os resultados que 
procuramos para ciclos que variam de 
60 a 120 segundos, a fim de que possa- 
mos escolher o CICLO IDEAL para o 
cruzamento em questSo. ^ 



Nao Leia 



Ligue para: cinco, sete, sete — 
meia dois, dois tr&s 

e conhega todos os tipos de suprimen- 
tos para seu computador 

• Fitas: novas e rebobinadas, 
ideais para qualquer modelo de 
impressora 

• Mfdia Magn^tica: disketes, fitas 
e discos magn^ticos 

• Etiquetas: padronizadas e 
especiais 

• FonnuUrios conlinuos 

• M6veis para CPD 



HECTRON 

Suprimentos para Computadores Ltda. 



Rua Charles Darwin, 182 - cj. 5 
Jabaquara - SSo Paulo - SP 
Tel.: (011)577-6223 
BIP: 3LXA (Tel.: 815-3344) 



LiF-SDFT 

Comercio de Computadores. 
Pertfericos e Suprimentos LIda. 




» COMPRA E VHNOfl DE 

MICROS N0V05 E USAOOS 

« PERIFERIC05 

« SUPRIMENTOS 

« SOFTWARE 

ft eOFT-CLUB 

« CURSOS DE BASIC E 
ASSEMBLER FARA APPLE 

Rua Miiiislro Godoy . 383 

Perdizcs- Sao Paulo 
Tel.. 2630039 - CEP 05015 
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^Kt ** ^ *t *H* ** ^HHHHHHHUMHnr^ ******** * 
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1 RFM 

2 RKH 

3 RFM- 

4 ri-:m 

:^. RFM 

^ RFM 

7 KFj-i 

8 RFh 
V REiM 



A. h:::; o if^ ii Aoi-zi-^i 



1 1 c: I r:l e I' R D ^i a (1 e A 1 1» f: i d a 
Be I em - Vt^ 



i. 


RFM 


f.. 


REH 


>'> 


RFM 


4 


Rfh 


iif 


R i ii 


^> 


RFM 


7 


R IriM 


(It 


RFM 


<;;' 


RFM 



I- OH"'' H:::tiii':-?ii-:i!' AiIF-^ t a 



t ' i c. ii\ r rl o D i n i 

^.J i t or i a ■-- FB 



fii"\ o i '1 VB 



Este e um jogo para CP-200 e compati'veis que tern por 
objetivo a acoplagem de uma espa9onavc a base espacial. As 
unicas teclas necessarias sSo a 5 (leva a nave para a esquerda) e 
a 8 (leva a nave para a direita). jogo comefa com a nave apa- 
recendo em uma posi9ao aleatbria no alto da tela. Ela descer^ 
conlinuamente e o usuario so poderd moviment^-la para os la- 
dos. 

Ouanto a base, aparecera inicialmente no centre inferior, 
movendo-se aleatoriamente para a direita ou para a esquerda, 
podendo tambem permanecer parada. £ preciso muito cuida- 



do, pois no ultimo momento ela poderS sair de alinhamento e 
voce nao conseguira cumprir sua missao. 

Os caracteres das linhas 360 e 380 devem ser feitos com o 
cursor no modo gr^ico e o programa deve ser gravado com 
GOTO 430. Os tres comandos POKE no in I'cio sao responsiveis 
pela seqiiencia de bips quando se da a acoplagem, seja ela per- 
feita ou nao. O POKE na linha 170 permite a utiliza^ao das li- 
nhas 22 e 23. usadas normalmente apenas para a edi^ao de li- 
nhas de programa. valor original do endere^o 1 641 8 6 restau- 
rado na linha 415 para permitir o INPUT. 





-EM -HEADER R. DE fiLMEIDfi- 


£30 


IF Q>25 THEN LET Q=25 


^■ 


=:em -hOOPLRGEM- junho,. 


1954- 


240 


PRINT RT £3.Q;E$ 


10 


■POKE 30000 .£11 




£50 


IF INKEY$ = ^'5" THEN lET . = .-' - 


£0 


-OKE 30001 ,£40 




1 




■50 


= OKE 30002 :201 




£60 


IF IN r-. E ■■-■ $ = ' 3 " T H E r-J L ET -,- = V + 


40 


_L:- 




1 




'Z' •i,' 


- S i--i f:- 




£70 


IF Y<0 THEN LET Y=0 


C' 'v-' 


= RI^JT ~.T 0.0; "CUh^ C 


^RfiU D 


250 


IF y;:-25 THEN LET ■■,■■=£5 


= ;■ T = 


■JCULDhDE^- ■ 1-2) '■ 




£90 


kkInT hT X-c> , Y ; " 


.' si; 


INPUT H5 




300 


PRINT RT X :Y : B$ 


SO 


li^ H$='l- "^HEN LET L> = 1 


310 


PRINT RT X ,Y ; C$ 


90 


IF f*i = --2-' THEN LET D=£ 


340 


NEXT X 


100 


IF NQT .H5 = "l" RND NOT 


R$ = -2 


350 


IF Y=Q+i THEN GOTO 330 


" THEN GOTO 60 




360 


PP. INT RT 10,7; " flCORLRGEM FP 


110 


UL'i^ 




RhDR 




120 


LET ■v=iNT rRND*20:' +4 




370 


GOTO 390 


150 


-ET 05 = ' *^ ■■ 




350 


PRINT RT 10 .5; "RCOPLRGEM PE 


140 




RFEITR" 1 


150 




390 


FOR T=l TO 100 


le-e 


_ET 0=12 




400 


LET ^^=t !:=.P "0000 


170 


POKE 15415 .0 




410 


NEXT T 


ISO 


=0R X=0 TO £2 5TEP D 




415. 


POKE 15415 2 


190 


LET G = INT 'IRND^FJ 




420 


GOTO 40 


200 


IF G=3 THEN LET Q=G-1 




430 


5 R *-J t " R C: ■-' L H C- 1 r-1 " 


Pi0 


IF G=4 THEN LET Q=Q-l-l 




440 


RUN 


££0 


IF O::0 THEN LET Q=0 









m 



Acoplagem 



Programe suas f^rias: 



em Janeiro, edi^ao MS tradicional de JOGOS 



• Dr. Kasklin e os fagocitons • Golf • Curral • Detetive • O sobrevivente • Cowboy 

• Missao Resgate • Funde a cuca • E muitas outras atracoes. Veja ainda como anda a 
mercado de jogos comerciais e algumas dicas em Assembler para voce fazer seus jogos 
ainda mats interessantes. 



Este programa, para o cdlculo anali'tico de Sreas, tem uma 
ampla apUca^So no campo da topografia. 

As varidveis, memdria de vi'deo e o programa em si ocupam 



10 


PRINT ORi-CULO RNRLITICO DR 


RREh 


" 


14 


PRINT 


15 


PRINT "ENTRE COH T0DR5 fli L 


0GRDENRDR5 E R 1' REPETIDR" [ 


15 


PRU5E 200 


20 


D I M R i, 4 .1 


c! w' 


LET D=0 


30 


INPUT R (l) 


34 


SOROLL 


■~;F 


PRINT R (IJ 


■■' t 


5CR0LL 


40 


INPUT R i.£:i 


45 


PRINT R(£:i 


46 


50R0LL 


47 


PRINT 


45 


5CR0LL 


50 


LET iJ=Rf;i; 


50 


LET T=R i2i 


70 


FOR 1=3 TO 4 


80 


INPUT R (I) 


3'5 


PRINT R ill 


55 


5CR0LL 


90 


NEXT I 


94 


PRINT 


■=iF 


5CRQLL 


100 


LET B=R (li +R (3) 


110 


L ET C = 1. R 1. 4 .1 -fl ( 2 ) :i *B 


120 


LET D=D-?-C 


130 


IF Rf3:i=iJ RND Ri:4:i=T THEN G 


OTO 


.70 


140 


LET R 1, 1,1 =R i:3) 


150 


LET R 1,2 1 =H i4J 


160 


GOTO 70 


170 


LET E=R55 iD/£J 


174 


SCROLL 


175 


PRINT 


175 


SCROLL 


150 


PRINT "RRER = " : E 


190 


STOP 


200 


SPUE "GRU55" 


£10 


RUN 



aproximadamente 1 ,5 Kbyte. Ap6s entrar com a Ustagem, para 
gravar o programa, digite GOTO 200. 

Agora, introduza as coordenadas dos vertices do poli'gono. 
As ultimas serSo as primeiras, confirmando o dito popular. Por 
exemploixl = 100; yl =200;x2 = 110;y2 = 200; x3 = 110; 
yZ= 190; x4 = 100; y4= 190; x5 =xl = 100;y5=yl =200. 
AREA =100. 



Cdculo anatttico da drea 
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SoftKnsfisa 

Com o Exclusive Azimuth Regulating System 



■ A Venda noe Revendodores Auionzodos em lodo o Pais. 
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• CredenciamoB Novos Revendedores PareTodoo Palsi 
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1 REM 

2 REM 

3 REM-- 
A RI::M 

6 re;h 

7 Rfi:M 

e RFM 

9 RE:M 



X aM! ic:> t: c:: ie: t> e" -=^==1. s i^ej h. j N! ir" c* i^:i i:> i": f-< 'b: k.* :i: ej "I" rf^ 3 
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Os colecionadores de MICRO SISTEMAS e outras revistas 
poderao. a partir de agora, tornar mais facil a localizaifSo de ar- 
tigo-s j^ lidos. Este programa armazena o titulo.o tiome da re- 
vista, a sc^ao. a pagina e ainda da um pequeno resumo do artj- 
go. Estes dados ficam armazenados, em linhas DATA, no for- 
mato: lilulo. se^ao, revisia, niimero. resumo. Unia liJlima iinha 
DATA deveia corner a paJavra FIM. Case os dados nao estejam 
nestc formate, havera erro, 

No video, sao apresentadas Ires opijoes: pesquisar, lislar e 
fim. Na pruneira op^ao nSo foi usado o comando INPUT para 
enirada de dados, mas INKEYS, por ser mais versatil. 

As teclasque podem ser usadas no programa sao: 

• todasas maiiisculas: 

• * - que move o cursor para o finaJ do dado imediatamenle 
acima de onde o cursor estiver; 

• , - analogo a ■ . so que move o cursor para baixo; 



• CLEAR -que limpatodososdadosqueestiveremtio buffer; 

• RETURN - que inicia a pesquisa. 

Nao e necess^rio entrar com todos os itens da pesquisa. mas 
quanto mais itens inserirmos. mais especiTica ela sera. £ bom 
lembrar que o computador sdaceita teclas maiiisculas. exceto 
no resumo. Assim. deve-se ter cuidado na hora de colocar os 
dados nas linhas DATA. 

A opt^ao LISTA mostra todos os dados que estiverem na 
memoria de vi'deo e com as teclas t e i e RETURN voce po- 
dera voltar ao menu. A op^ao FIM para o programa. 

O programa foi desenvolvido em um DGTIOO, mas podera 
rodai em qualquer micro compativel, desde que sejam feitas 
as alterai^oes necessarias. A rotina de inipressao do cabegalho. 
que esta na linlia 50. nao serve para micros da Iinha IRS 80 
modelo HI. 



10 CLSlP( l)«27e'FOR 1-2 TO 4iP ( I ) "P ( I-l >*64 "NEXTlWS"" -♦STHINGtf 

2,24)->CHR«ll76>«'CH(!)(24)iLS-CHRS(31>>DCFINT A 

20 READ Atnr AS< >-'Fin'-,5-S+li00T0 20 ELSE RESTORE iNR-S/Si IF Nft< 

>lNT<Mfi),9?a ELSE DIM M«<HR.5}iF0fi I-i TO Nfi»FOR E-1 TO SiREAD M 

t(I,EHNEXT!NEXT 

30 CLS 

50 FOB I-1336I TO 15422iP0KE I.iOiPOKE I*12B ,21 iNEXTiPOKE 13424, 

19A1P0KE 154e?,205iPHINTa79,''IN0ICE DE ABSUNT06 DE REVISTAS", 

60 PRI(IT8256,LSHI0S<STRS<NR>.2,3>" Aituntos na •eaor i « 

1. P*squk«« 

2. Llkta 

3. Fl» 



T«cl^ sua »ico»ha ''CHfi«(94), 

90 «"IMKEY«iA=l;ftL<Ai) IIF A<1 OR A>3,90 ELSE PRINT" "lAflFOR I-l 

TO lOOiNEJtT 
100 IF A-3,CLS)EN0 ELSE tF A<2,H0-1 iGOTO 900 ELSE HO-D 
110 I-HPRINTaZS&.Lf I 
120 PRINT 

"Aakunto l-BSd)" 

BtQ»o ■''BS<2)" 

ftavlsta i"B*<3>'' 

NuMcro ■"BSM> 

130 PRINTBP<I}.BS(I)CHRS(3a>CHRf (17£)CHR(<24) i 

14D POKE 164DB,12BiAS-INKEYIIIF «*="", 140 ELBE A-ASC<ii.5> 

150 IF A=9-l AN& III. I-I-l iPRlNT" "jtCOTO 130 ELSE IF A-IO AND I( 

4. PRINT" "(II-J.ltOOTO 130 

155 IF A"31,F0(1 [ = 1 TO 4iB%<I)'='"'iCM )-OiHEXTiGOTO 110 

160 IF A>31 AND A<9I OR A>?S , BS4 1 1'SK I ) 'AI iPfllHT At,CHRS( 176 >CH 

Rt<:4 I iii:< !>-[:< i>ti'GOTo ]4o 

170 IF A-8 AND C<I »>0,C(1 )-C<I>-liPRINT U>, i B«< I ) -LEFTSt BS< I > .CC 

l))iGOro 140 ELSE IF A»-CHB*Ci3),PRINTaV80,"Sl'BTE»1-",iGOT0 2SO 

IBD GOTO 140 

250 X-0>FO« I-l TO N«lC-OiW-0"FOB E-1 TO 4 

260 IF BS!E)-"''.C-C'l iM-U+(iELSE IF B»(E J-HS* I , E> .C-C+1 

27D NEXniF C>>4 AND U< )4 , X>1 tGOSLtS BOO 

2B0 MEXT IHF X=0,PRINTa256,[:HR4t31 )" 



REGISTRO INEXISTENTE'-iFOft I«l TO 400iM£XT 
2?0 GOTO 60 

800 PRINTS256,L1 TAB (20 )H»( I ,3)" 
Asaunto i "MKI.D" 

Unpmra i "M»(I,4>" 

■■MS(I,5> 

B3S IF M0"1, RETURN 

84D PRmTa?60,CHRI(94)'' Proxiwj rtglAtro (RETURN) wottl 

830 A-PEEKil4440HIF A-1 , I-MR* 1 SRETURM ELSE IF A-64,RETU«N ELSE 

850 

900 FOR I-l TO Nfi'OOSUB BOOiGOSUB 9S0i NEXT ! GOTO 60 

950 PRrNT8960,CHR»<93)" voU • u« registro ■'CHRi(94)'- proK'MO 

registro (RETURN) •ienii"( 

960 A=PEEK(H440)iIF A=32 AMD I>l.I-I-2 ELSE IF A-64 AND I<MR,RE 
TURN ELSE IF A-l.I-NR+1 ELSE 960 
970 RETURN 
990 PBINTB25i,L«" 

EKRO NO AR-aUIVO OE DATAS"| 
995 GOTO 995 

tOlO OftTA CONTROLE BANCAR 10. PRO. . MICRO SISTEMAS. 25 , "Reg < «ti-« o* 
latieBnento*, atual'zs o saldo e, d« quebra, adwimi-lr* tielhor « 
ua vida en »ra Blcro da Unha TRS-BO", CBIPTOQRAFIft, ART. .MICRO SI 
STEMflS,25 

1020 DATA "S»9<jni]B part* do art igo CHIPTOORAFI A, publlcado na pa 
g. 43 do No. 24. Ob »lst««a» cr i ptogr af i cq« via computador e 
a orlgea doDES, o na I s uC i 1 I zado intsrnac I ana lacnl: e" 
1070 DATA HIHI EDITOR DE TEXTO , PBG. , SO rtlCHO.MAY 19S3,"Ubi ailnl n 
Icro editor dc t*nto5 qua usa -enos (jue 200 byt** d« ■■■orla. 
PrograMi fb llnguagcn de otaquina cob ob coacritarloa a o» Mnentm 
I c o ■ " 

lOSO DATA SISTEMAS OPERACIONAIS , ART ,. MICRO SISTEMAS ,25 ,-'0a aiat* 
aia» optracionaiB foraw i nd i Bpcnaa vc I s para o deB«nvol v I -■•nt o do 
B coaput adorn Bodernoi. E«t« ar t I go «o«tr» co«o »l«B«ur9'r»« 
* CDMO func I odbb" 
1090 DATA FIN 



Esta § a triste estoria 
de um C.P.D. que parou 
por falta de formuldrio 
continuo. ^ 
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ihJke dc A^suniQS de fievistas 
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Todos OS culpados esqueceram de um detaihe 
importante: os fabricantes demoram de 30 a 60 
dias para entregar qualquer pedido de formulario 
continuo • e detestam cumprir pequenas 
quantidades de ultima hora. 

Com isso, todo o relatorio da diretoria nao 
podera sair em tempo e o pagamento do pessoal 
da empresa esta seriamente ameagado com o 
atraso. 



a p p 1 e a p p 1 p a p p i e a p p I, e. a p p 1 e ;-i. f 



1 Rt:M 

2 ri:;:m 

3 REM-- 

4 REM 
!^ REM 

6 REM 

7 REM 

8 REM 

9 REM 
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Este programa foi utilizado com sucesso em calculos de am- 
plificadores em HF, portanto seri litil para radioamadores. 



Basta informar a indutancia desejada, o raio do indutor e o ti- 
po de fio. O resultado 6 para apenas uma camada de espiras. 



5 


HOhE 






10*11 


C = 5.07E5 / D 




10 


PRINT "CALCLJLG 


DO NUMERQ DE E 


110 


M == C 






BPIRA3 " 






120 


K= ((C + A) *C + B) *C + C 




15 


PRINT "DE INDUTOR COM NUCLEO 










E)E AR" 






125 


Ki = (C + (c + A) ) * c: + B 




20 


PRINT 






130 


Q = C - (K / Kl) 




25 


PRINT "DIGITE 


INDUTANCIA DESE 


135 


IF (C ~ Q) < 0.005 THEN GOTO 






JADA" 








200 




30 


PRINT "EM HENRY^S" 




140 


C = Q 




35 


INPUT L 






145 


GOTO 1 1 




40 


PRINT "DIGITE RAID 


DO INDUTOR 


200 


HOME 






It 






205 


PRINT "INDUTANCIA=";;L; " HENR 




45 


PRINT "EM CM" 








YS" 




50 


INPUT R 






206 


PRINT 




55 


PRINT "QUAE FIO: 


^WG 37/28/ 


21 


PRINT "NUM DE ESPIRAS =";N 






24/22/20/16" 






215 


PRINT 




60 


INPUT F 






220 


PRINT "RAID DO INDUTOR =";R! 




65 


IF F = 37 THEN 


LET 


D = . 1 




" CM" 




70 


IF F = 28 THEN 


LET 


D = 0.035 


225 
230 


PRINT 

PRINT "FIO AWG " ; F 




75 


IF F = 24 THEN 


LET 


D = 0.055 


240 
245 


PRINT 

PRINT "PARA CONTINUAR DIGITE 




80 


IF F = 22 THEN 


LET 


D = 0<065 


246 


<CONT>" 

PRINT "PARA TERMINAR DI6ITE< 




82 


IF F = 20 THEN 


LET 


D = 0.075 


250 


F I M > " 
INPUT A$ 




85 


IF F = 16 THEN 


LET 


D = 0.085 


255 
260 


IF A* = "CONT" THEN GOTO 5 
IF A$ < > "FIM" THEN GOTO 




90 


A = - 2.53E7 * 


D * L / (R ■ 2 




240 






) 






265 


PRINT "FIM PROGRAMA" 




95 


B = - 2.28E7 * 


L / R 


270 


END 
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Cdlculo do Niimero de Espiras 
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Gracas ao SISTEMA DATAFORM 
DE ENTREGA IMEDIATA, esta 

estoria teve um final feliz. 




O hMppyetid fiioa i targo do SiSTEMA DATAFOFIM DE ENTREGA mEDIATA 
PE fOfiMVl AttlOS CONTiNUOS. um app4el4ttiritta x-Kci^^ii'Q (^ DATA WSSD/V. 
pmdulor* das maii pfrieitai fitsi Improaoriis do mercado. O S/STEMA DATAFORM 
DE ENTREOA fMEDfATA e o mafar dislribuidor de formuijrioi cantmuoi do Paii e 
iA fMKFu fcwno am rtU'cnlr M-nJ(Ch tfc -*«". (7-5,. pi-rftjita par* etttr^^r qujiiQiUrf 
pt^dido, ifja e/e de J, lO. JOO ou lOOO caika^ di^ farmtiUrioi. 

Com o SISTEMA DATAFORM DE Ef^TREGA fMEDfATA, voci nAo corre a riito 
dt fk4f *rm ta/mtilAriot oo stii CP.O- ■ jmJ* eittxfuc e fapi<k-f de cn//*^ ij* 
quaiididei tjtie nio faftam aoi sous i^ndodoros, tornfcendo a^s ntfttiores e niais 
/amoiJi fnarcas dc formutaiios continitas do mercada. O Sr. Anibat, vendedor de 
DATAFOfi^. rw foto aiimM. tonfere eSM verdade. 

a ^ST£MA DATAFORM DE ENTREGA IMEDtATA totnou-if a mafat t^de 
distribiiidofM de formutaTka. juitamenfe peta pretxupa^Ao com que atende cadt 
cfiente c ao aicndlmenfa penonaUisdo. marca regiitrada de seu trabalho, Os rwKUd 
smi^t* aeinta. mAo^ fH-h ittfrlid4iie f ftrofistton^tiimo da DATAFORM. t»odeiti 
garantir eUa a/irmafao. 

Cm Itorai de emer^ficti, ou em camprms normmih, utilire-se da e/fctiitcit do 
StSTEMA DATAFORM DE EiVTREGA IMEDtATA t>E FORMUtAHtOS 
CONTif^VOS. 

3. 
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LIVROS-McGRAW HILL 

Ao escolher urn livro de Computagflb, opte $empre pelo melhorf 
McGraw Hiil - LIVROS DE QUALtDADE 



s i n c 1 a i r s i n r: 1 a i i" b i 1 1 c: 1 a i r s i n c 



INiaA^AO AO BASIC 
To^bQX ^Crt 9900,00 

Etcrtto em eslito flcil, de^tina-se espectalmentc aoit pnncipiAntEi; 
que n>o tenham muo aoy micTos. mais qu? dcscjem ramihaiizar-sE 
Qom Qs conceilos de pro^ama^. 

Pcide «r aplic&do a quaiquer compulador (juc u^ a liciffpia^cm 
BASEC. 

Uifl KxXo divtitidio que ac«ita a poissibdidv^e do lei lor nio ler 
eXpc]ri£n4na anlchDi. 

CP/M -GUI A DO USUARIO 
- CiJ i 5.900.00 



Enjiilo paia usuaiios com bom ntVel dc conhccimento, este 
livTO coiaiitden a hisl^iia e funics do CP/M, bcm com<t as. comajrbdos 
proprios para o umirid. Inclui q CP/M-Si^, sislcm^ opeiacional basea^ 
do no sa$6 e «0»S. 

[NTRODUCAO AOS MlCROCOMPtTr ADORES ~ Vol 
Ojbome - CrI 12.500,00 

Livro put principitnics cm mirCrowmpiita^io. Conceitos bisicoj 
tohn todos on Hkios: como funclonam c o q^uc elcs podcm faicr. 
Introduz o iKitor nas Uc^pugen^ dc pro^ama^ao, c6di£o& bmahoS' c 
ajitm^tka., l<S£ica. temporua^ao. memorial e como uu-los, 

APPLE 11 ^ GUIA DO USUARIO 
Poole - Crt 23.90O.D0 

bite e meUiDi e mai^ complex mBnu.al do APPLE \l. Contain 
dttaiqto de todas ai in^tnif^iv comandos e fun^i. 

Uma x^o especial em pmgraina^ao avan^ada t aplica4;flcs. GaM 
e objtijvo. ObrigAt6no para osusu^tos do APPLE H. 

PROGRAMAS USUAIS EH BASIC 
' Pro^mnas usuais em Biac TRS-SO 
* Vtoptimt UAiaii tm Bidc APPLE [[ 
' Prc^nmis pcitiois. em Ba^ 
OS 1 2.l}QO,0O CKta 

Virion j>ioArama5 pritico; pin pequcnos neg^ciQ], pequcnas ttn- 
ptcsju de En^enharia, Administia^ao. Matematica e Economla Oom^sr 
tica. 

MANUAL DE BASIC PARA A^LE 11 
PcC^AAi-CrS L3.9O0.0O 

Manual piittco que possJbilita ao Icitoi apnudsr i progiamar o 
APPLE 11 atraWs de cxerciciois dir%Jdos. 

EscrllD em linguagem ficil, aoe»]vel, i din^ido a hobUUs e 
cjtud antes. 

VlMCALC 

Cistlftwitz - CtI 12.900.00 

Urn i^ia pi^LiCQ paia utilaa^ do software VISlCALC. Atrav^s 
da leiLura dc^tc manual, D usuirio podEji obter o maximo «m quaJir 
dfidiE e cficicncia tm ^a aLividade. 

OONSTRUA SEU PR(>PRIO MECROCOHPUTADOEl Z-SO 
Ciarcia - Cit 23 900.00 

Estc fuia prdtico mostra como voce pode conilmir ku pi6prio 
microcomputadof, baseado no famoA microprCMaisador a ZILOG 
Z-SO. 

Cada subsisTcina do L^Dmpuiador i inleiramente explicado com 
base am informa^i tc^tadas^ de forms que o jejlor possi facilmenle 
modiftcar o sisEema, 
Dt muito facil compreensio. 

PRC»grama<;aotk &2-Si-as cp-200 
Hurley - Cii 5.900,00 

Aprcodt a pru^gramar seu TK e CP 200 muilo facilrnenre. 
Progiamu em BASEC, itt$Oi, grificot etc^ para principianles. 

Fkil assimita^ao c compircnuio- 

MICROPROCESSADORES - Concettot Discos 
Oiboine - Cit E 3.500,00 

A mais oompreenijva t atualizada Lnirodu^lD ao sisiema dc 
micioprocesjadorej; expressa da maneiia maes simples de cntendc-los- 
Conccitos bSsicos- 



LIVROS UNIVEflSITARiOS E CURSOS 

PROGRAM AC AO COM BASIC 
GottfrKd Crl 13-SOO,00 

A finalidado de^ic icxto € fameccr urn cm^ de pro£[ia,ma(;io de 
computadores. cmpre:£ando a e&lTUtura padronLzada da Lingu^em 
BASIC 

pioporciona ao leitor condi^^s de oigani2;ir c cscrever I'om 
criciencia pio^^mai de compuiador. 350 pioblcman rc!«>Lvidos. E>e:4t]-' 
riA-se a todos oj cuisos do cnsino Supercoir e TecniL^o £[Lie utihzam o 
Basic como lingtiag^m. 

COMPin' ADORES E PROGRAMA^AO 

Schcid - CrJ |3.5CW>.00 

Ouinhcntos e liinta c cinco probtemas resolvjdos e varios piogrir 
mas Uiando a lin^agem FORTRAN. BASIC, PASCAL e PL/1, 

InlTodufSo a Computa;fD e Programa^ao. deitina-se ao meicado 
Univenilirioem cursos de Engenbaiiae AdministrafSo. 

a£NCL\ DOS COMPUTADORES 
Tremblay -Cj| 13.500.00 

Inlroducdo a Ciencia dos Computadores, usando uma abordagem 
ALGORfraiCA. 

Uvra tcxto duigida a Lngcnharia, MaccmiLica c Quuai ireaj 
aflns. 

Best Seller nos EUA, 

aRCUTTOS DIGIT AIS E MICROPROCESSADORES 
Taub -Cn 14.900.00 

Livro texto dingtdo a Escolas de Engenhaiia, paja as areas de 
pro)ctas 16giccs t mictopiocesji^ores. 

ConcenlTa^sf nos modeloii 801!O/S0S6 com detalhes paia Aplicar 
OSes em ovtras unidadcs. KxpLica(;Oes claras sobrc FLIP-FLOPS t 
MEM6R1A5. 

UMBESTSELLERr 

PROCE55AMEKT0 DE DADOS - Volume I 
PROCESSAMENTO de dados - Volume II 
VcueUo-CfJ 10.900,00 cada 

Mantendo-tf independence de quajquer tipo de lingUdgem ou 
tipo especi'fito de miquina, os autores discutem in(egralmcnte [odtsj 
OS jLSSUnEos dd ^a,. inforrnando como usar a tecnoloeia de compu- 
ta^io para n: solver ^robltmas de processamento dc dados. 

Li'vn> iniiodutorio para Ecxjnomia. AdRtinistia^aci e Hn^nhaiia. 

LIVROS EM INGLES 

dBASEII -GLrtA DO USUARIO - Townnnd 

Lan^mento. em portugues. para novembro de 1 9^. 

Manual ba.siante informal ivp c claio. para profissionais que queiram 

UtUizarOdBASE tl 

Iniciando com EnstaUaLion e passando por Information File □rganiza' 

tion. Records e Databases, o kitor sera conduzldo para Sijlemai, 

Pro^ama^jio ei^tiuturada e outro; topicos mais avanfidos. 

LOTUS 1-2-3 - Edward Bam 

Guia prdllco para utiliza^lo e acompAnhamenLO do soflwaie Lotus 

1-2-3, especiabnente dcsenvolvido para as ireas rinanceii»e de neg£^ 

cioscmgeral. 

Par inlcnnedio de instru^Sci simplts, claras c de facil compreensao. 

lantci para profissionais como para iniciantes. poder-:^-a obler perfeita 

integrafao e resullados harmoniosos na consolldagao de reiornos e 

previsAes fmanceiT^. 
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Rua Tabapua. E 1 05 - CEP 0*533 Tdrfone Sei-«604 - 
llaim-Bibi - Sib Paulo - Brasil. 

Rua Evarislo da Veiga, 55 ■ trj, 1309 ■ CEP 20031 - 
Tone.: {021 i 2«2-4T56 - Rio de Janeiro. 
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REH 
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REM 


3 


re;:m 


A 


REM 


S 


REM 


6 


REM 


7 


REM 


S 


REM 


9 


REM 
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programa Propaganda, escrito para micros da linha Sin- 
clair, tem por objetivo a apresenta9ao de frases, textos explica- 
tivos de programas, instrufoes de jogos e coisas do genero. 

Para efetuar essas apresenta^oes, ele se aproveita de um in- 
teressante efeito visual (grdfico), onde as letras, quatro vezes 
maiores do que as noimais, parecem caminhar pela tela do mi- 
cro, cobrindo toda a sua extensao da direita para a esquerda. 

Para carregar o programa, utilize o MICRO BUG criando 
uma linha 1 REM com 130 caracteres. Em seguida, entre com 
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00 
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i-lF 
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SI 


16522 
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i=;F, 




be 


03 


34 


07 


50 


165^30 
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0C 


40 


11 


46 
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19 
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16554. 
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CR 


16570 


12 


X :' 
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40 


Cl 


85 


U3 


! :.■; 


16642 


53 


40 















Bioco Assembler 



Em todas livrarias dio Brasil ou tdiretamente. 
Solicite catdlogos 



108^^1 


■JT -Die 


ITE 


Hi 


Fftfi5E 




20 


INP 


JT ^i 










30 


CL3 












■-t-0 


LET 


f\%=-^-%- 










50 


LET 


E5=i^S 










60 


LET 


C' 5 = i^ $ 


TG 


1. 






70 


POK 


z. 16541. 


. , CODE 


c$ 




30 


_ET 


fi$=H$ 


2 TC 


i 






90 


-hN 


'j -J 3' •-•: 1. 


RR30 






100 


It- 


=($ = '■■■■ " 


"hEr-4 


LET H$= 


6$ 


110 


FQR 


F = l TC 


! R 








120 


NEXT F 










130 


GOT 


D 60 











o bloco Assembler e retome ao BASIC. 

As linhas 110 e 1 20 da listagem em BASIC formam uma ma- 
Iha de tempo que pode ser modificada para aumentar ou dimi- 
nuir a velocidade de execu5ao do programa. Alias, voce poderi 
alterar como quiser a parte em BASIC, usando, 6 claro, a ima- 
gina9ao para criar novos efeitos visuais. 

O propiio programa pedira a frase. Entre com ele e veja o 
que acontece . 

■ 



Propaganda 



mirnnNcnc- 

H inFORnnTicR no 

RLCHnCE DE SUH EHPRESR 

50FTURRE PERfERICOS niCRO 
f ],■,, ^'^j- COnPUTRDORES 



l^% ' 




V 



.1 
sm 



b 
em 



m. I 



i_Be ■, 



CiJRSOS 



I 



iiiCROT 



s 1 

• ■ r, r 



Comefcio e Seiviqos Hda 

R. Assembl6ia 

■■-rr_ 10 / gr. 3317 

— , Ed. Ceniro 

I I 'l Candido 






- — Mendes 

CEP; 20011 ■ RJ 
Tel,: 10211252-9420 
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Para matemMicos. fi'sicos, engenheiros ou estatisticos que possuam um 
TRS-80 mod. Ill, um programa que plots grificos de funpoes do tipo Y= ffX) 



Graficos em video 



Oobjetivo deste programa e 
plotar ograficcem 
coordenadas retangulares, 
de qualquer fungSo real do 
tipo Y= f(X), dentro de quaisquer 
intervalos de varidveis definidos pelo 
usudrio. 

Desenvolvido para equipamentos da 
linlia TRS-80 mode!o III, o programa 
e muilo simples, podendo ser dividido 
em quatro partes. 

1 ) Defini^do da fun<;ao a ser plotada 
Ao iniciar sua execu95o, o programa 

pergunta se a fun^S'o j^ foi defmida na 
linlia 280. Respondendo-se com um S 
(sim), passa-se para a pr6xima parte; 
com um N (nSo), o computador entra 
no modo de edi^So para que se coloque 
a fun^ao na linha 280, devendo-se 
reiniciar a execu^So do programa. 

2) Determim^do dos intervalos das 
varidveis 

O programa pede que sejam 
fornecidos os intervalos de X e Y, 
dentro dos quais a fun9ffo serd plotada. 
Por exemplo, se a funi^So for Y= X'1'2 
(Y= X^ ), nSo haveria sentido em definir 
um intervale de Y como sendo de ^ a 4, 
uma vez que essa fun^S^o nao gera 
mimeros negativos. programa critica 
esses intervalos para que entradas 
invilidas nSo provoquem erros 
posteriormente. Dessa forma, sSo 
intervalos invilidos: -1 a -3, 4 a 4, 20 a 
1 5 etc. (0 valor inicial deve ser sempre 
menor que o final). 



86 
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165 REM -- 

l/n FOR 1=0 TO 127 = SEKI.K) : NEXT I : FOR J=n TO 41 : SET<U,J 
) : NEXT J : SI=C-A : f\^B*Sl = SJ=F-D = FJ=E+SJ 

175 REM 

idID REM > CONSTRIJCAO DO GRAFICO PROPRIAMENTE [>1T0 < 

185 REM 

190 FOR X=A TO B STEP C : GOSUB ?8Q : IF r<=I)-F/l' OR Y>=E+F/2 TH 
FN ?IC) 

200 I = INT( <X+SI )/F I»128+0.5)-l i J=42- INT ( ( Y+SJ ) /F .Itf 4i;*0. 5 ) : IF 
FOINT H,.\> THEN RF SET <J..I> ELSE RFT (t,.U 

^m NE5iT X : noT''. ;^^ 

a:!". REM 

2?n REM «»« riM DA PARTE FRTNCTPAl DO PROHRAMA »** 

2^5 REM 

P.30 PRINT aB9A,"INTERUAL0 DE X" : PRINT 3921 , "INTERyAI DE Y 

":PR1N1 3946, -DESEJA OUIRO" 

;_'40 PRINT a9;,0,A;" A ";B; : PRINT 3905,0; " A ";E; : PRINT uilOlH, 

"GRAFinO(5/N)?"; 

250 ni=INKEV% ! IF ni.="N" THEN END ELSE IE G1<>"S" THEN .'50 

260 A=0 ! B=A : C=A : D=A : E=A : F=A : K =fi ; U=A : X=A = Y=A : 

1=A '. J=A s GOTO 20 

265 REM 

270 REM > DEFINICAO DA EUNCAO A SER PLOTADA <- — 

275 REM 

280 Y-SIN{X> 

270 RETURN 



3) Desenho dos eixos coordenadas 
De posse dos intervalos de X e Y, 

programa calcula a posi93o na tela em 
que deverSo estar os eixos coordenados, 
desenhando-os em seguida. 

4) Constru^do dogrd/ico 

intervalo de varia9ao de X (AX) e 
dividido em 1 28 partes e o de Y (A Y) 



em 42. Faz-se X variar dentro do 
intervalo com um incremento de 
A X/1 28 . e a cada valor de X calcula-se 
correspondente Y atraves da fun^a^o 
jd definida. programa verifica se o Y 
encontrado estd contido em A Y. Se 
nSo estiver, passa para um novo X; se 
estiver. determina a posiijffo relativa de 



Y na tela e plota um bloco gr^fico na 
posiijSo correta atraves da instrug3o 
SET (I.J), onde I e J sffo calculados 
a partir de X e Y, respectivamente. 

observacOes 

• Ouando o gr^fico da fun^So se 
superpOe aos eixos coordenados. ou 
mesmo os intercepta, a interse9ao entre 
eles e apagada da tela, a fim de que se 
possa distinguir se o grdfico coincide 
com OS eixos ou se estd fora do intervalo 
abrangido pelos eixos. Caso o usu^rio 
queira eliminar esse acende-apaga, 
basta retirar toda a instru^ao IF da 
linha 200. substituindo-a por SET (1,3). 

• Todas as varidveis do programa 
(com exce9ao de I, J. K e W) s5o de 
simples precisSo. Desejando-se utilizar 
intervalos para os quais a simples 
precisSo nSo seja suficiente, deve-se 
incluir a instru95o DEFDBL A-F.S,X,Y 
na linha 20, transformando em dupla 
precisSo todas as variiveis de simples 
precisSo. ^ 



Pau/o Sivio da Silva Costa estuda Fi'sica na 
Universidade Federal do CearS e trabaiha na 
Bscola Tednica do Cear4 como programador. 
atividade que vem exercendo hi alguns anos. 



Plotter 



?- REM -»-« »-»- 

4 REM -»--»- PLOTTER -»-»- 

6 REM -*-» *-» «-»- 

n REM -»-*' PAULO SAUIO DA SUVA COSTA -*-*- 

10 REM -*-*- RUA BARLiOSA DE FRE1TAG,678 - APTO. 201/B -#-»- 

12 REM -«-•■- EORTALEZA - CEARA ' - CEP : 60000 -«-»- 

1 4 REM -*-» »-»- 

20 C1EAR1OD0 : CLB = DEFINT I-K,IJ = B4=BTRINR5 (28, 45 ) : PRINT : 

PRlNTTABt 15)B% : PHINI TAB(17) "PLOTADOR DE GRAEICOG" 

30 PRINT TABttS) Bl : PRINT 3326, ".)A' DEFJNIU A EUNCAO NA LINHA 

280 'S/N) ""'j 

40 Ai^lNKFY* : IF At='-S" THEN PRINT " SIM" = GOTO 60 ELSE IF Ai. 

< i"N ' THEN 40 

'/,{) PRINT " NAO" : PRINT 3462," DEFINA A EUNCAO " : PR! 

Nr : EDIT 2B0 

60 PRINT «I44V,"-'; : INPUT "FORNECA INTERVALO DE X DESEJAOO NO 

FORMATO A,B";A,B 

/O IE A)=B THEN PRINT 3498, STR rNG«( 28, 32) : GOTO 60 ELSE C:=(B-A) 

/i2f3 

tin PRINT 3513,""; : INPUT "FORNECA INTERVALO DE Y DESEJAOO NO 

FORMATO A,6";D,r 

90 !E D)=E THEN PRINT 3562 , STR INGt( 28 , 32 ) = GOTO 80 ELSE F=(E-D) 

/4;> 

9b Rt M 

100 REM > CALCULO DA POBICAO 00 EIXO Y NA TELA < 

lOfJ REM 

110 CLS : K=41 : W=0 : IF B)0 AND A>=0 THEN 140 ELSE IF A<0 AND 

B<=n THEN U=127 : GOTO 140 

120 FOR y.=f\ TO B STEP C : Y=X + C : IF Y<0 THEN U=U-* 1 : NEXT X 

125 REM 

130 REM ) CALCULO DA PORICAO DO EIXO X NA TELA < 

1:35 REM 

140 IF E>D AND D>=0 THEN 170 ELSE IE D(D AND E<=0 THEN K=0 = GOT 
170 

150 FOR X==D TO E STEP F : Y = X + F : IF Y<0 THEN K=K-1 : NEXT X ELS 
E IF ABS(X)>Y THEN K'^K-l 

i5'; REM 

160 RFM > DESFNHO DOG EIXOB FOORDENADOB < 



A GUARDIAN GARANTE 
ENERGIA A10DA PROVA 




GERADOR ELETRONICO GERATRON: 
A PROVA DE FALHAS. 

Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em cases 
deemergencia.Capacidadede200 VA. 
com aulonomja de at6 90 minutos. 

ESTARILIZADORES DE TENSAO 
GUARDIAN: A PROVA DE 
FLUTUApOES E TRANSIENTES. 

Ultra-rapidos, protegem o seu CPD con- 
tra variagOes da rede em at6 +22% ees- 
tabilizam a saida em + 1 % , (ncorporam 
fiHro na enlrada, Iransformador isolador 
e chavede transfergncia para a rede, Ca- 
pacidadedeO.25 KVAa 100 KVA, 



SISTEMA NO BREAK GUARDIAN: 
A TODA PROVA. 

E a solugSo mais completa contra tran- 
sientes, flutuagOes e falta total de ener- 
gia. A Lintia Basica varia de 2.5 KVA a 
100 KVA. DispOe de ctiave esiatica de 
saida e utiliza tecnica de sintese da for- 
ma de onda senoidal , com tirlstores. 
A Linha Economica 6 a soiugao para 
CPD s de pequeno porte, com capacida- 
dede0,25 KVA a 5 KVA, 
hjaodeixe quea m^ qualidade da energia 
ei6trica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 





GUARDIAN 



Equipamentos EletrAnicos Ltda. 

Rua Dr Garnier, 579 

Rto de Janeiro ■ CEP 20 971 

RfO PABX (021)261-6'158m021| 201-0195 

Telex (021) 34 016 
SaoPaulo 1011)270-3175 

REPRESENTANTES EM TODO BRASIL 



Geratron' 



Estabillzadores de tensao 



Sistemas No Break 
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Voce e o capitao de uma nave espacial, viajando a 100 milhas por segundo. 
Sua missao: instalar urn canhao laser e um reator numa base fora do sistema solar. . . 



Aventuras espaciais 
noPC-1211 



Neste artigo, vamos mostrar 
tres programas, nos quais sao 
utUizados os simbolos dispo- 
niveis no PC-] 21 1. com o ob- 
jetivo de gerarpseudo-graficosque tradu- 
zem uma animaf^ao, possibUitando, as- 
sim. com um pouco de imagjna^ao, em- 
preender-se verdadeiras viagens espaciais. 

OS JOGOS 

Como capitao de uma nave estrelar, 
voce tem uma missao vital a cumprir, 
para a seguranija de seu planeta. Esta 
missao e dividida em tres partes, sendo 
que a primeira deias consiste em orbitar 
o planeta e. para tal, voce deve lomar 
alguns passos. 

Primeiro. carregue o tanque do seu 
ca(;a com o combustivel necessario. des- 
de que nao exceda 3000 galoes. Em se- 
guida, entre com a velocidade final, ne- 
cessaria para a sai'da do planeta. 

Bern, voce agora esta pronto para ven- 
eer a gravidade do planeta, o que depen- 
dera da quantidade de combustivel e ve- 
locidade final. Se voce obtiver sucesso 
sera avisado por beep 2 e devera, em se- 
guida. entrar com sua nova velocidade 
para orbitar. Essa velocidade colocara a 
nave na falxa de 96 a 104 milhas acima 
da terra. 

Dependendo da nova velocidade, qua- 
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Listagem 1 






5: "K-CLEAR. « 


76: IF I)>50LET 2 


: PAUSE "VOCE 


780 


H»N+<D-<H/16 




PAUSE "ORBIT 


j=" 


N^ CONSEGUI 




10>> 


fl'° 


77: IF D>60LET Z 


0": PAUSE "VE 


?9n 


IF NXD-10) 


lOslWnJT "COMBU 


»=" 


NCER A GRAVI 




IF N<CD+10) 


STIVELCGflLS. 


78: IF D>70LET Z 


DADE"! GOTO 1 




BEEP i: PAUSE 


)-'"!F:IF F>3 


$=■• 







"VELOCIDADE" 


OOOPAUSe "A 


79: IF D<80LET 


215: IF F<=OPAUSE 




: PAUSE "CORR 


NAVE ESTfl m 


*='■*=>" 


"ACABOU CO 




ETA"! GOTO 36 


ITO PESADA": 


80: IF B>80LET Q 


MBUSTIVEL": 







GOTO 10 


*=■■ *=>" 


GOTO 10 


300 


IF H<OTHEN 3 


20: INPUT "VELOC 


81! IF D>90LET Q 


220: PAUSE " >" 




50 


IDADE FINALS 


$=" «>" 


: PAUSE " • 


310 


IF N<D-9 


'■;v:V»V/100 


62: IF D>95LET Q 


": PAUSE " 




PRINT "ALTLR 





$='■ ♦=>" 


ATRITO ELEVA 




A:";N:IF SON 


30: FOR X=1T0 V 


83: PAUSE Z$;Q* 


DO 1 " : PAUSE " 




Nn:-1THEN 330 


40:B=';.-1*X*V) 


90: IF F<=OTHEN 


SEU FOGUETE 


^20 


IF N>D+9 


50:F=F-':B'-2.6): 


210 


QUEIMOU-SE"! 




PRINT "ALTUR 


IF F<OLET F= 


100: IF B>100IF X 


GOTO 10 




A"iN:GOTO 34 





<5THEH 220 


230: BEEP 2: PAUSE 







&0:ri=<10*B>-32. 


no: IF ri>95IF D< 


"ORBITA ALCA 


330 


PAUSE "VELOC 


2: IF D<OLET 


105THEN 230 


HCADA" 




IDADE ALTA": 


D=0 


200: NEXT X 


250: I=D*1610: 




GOTO 260 


71: IF D<10LET 1 


210: PAUSE " 


PAUSE "NOVA 


340 


PAUSE "DESCI 


$="" 


>": PAUSE " 


VELOCIDADE": 




DA LENTA": 


72: IF ri>9LET Zt 


'-: PAUSE " 


PAUSE "PARA 




GOTO 260 




< " : PAUSE 


ORBITAR" 


350 


PAUSE "VOCE 


73J IF D>20LET Z 


" V": PAUSE 


260i INPUT "VELOC 




FOI DESTRUID 


$-■■ ■■ 


" >": PAUSE " 


IDADE^";V:U= 




0"!GOT0 5 


74: IF D>50LET Z 


*'■! PAUSE " 


V-'2. 235 


360 


CHAIN "2" 


»-" 


21i:lF F>OPAUSE 


270:M=(4.D02E14/' 






75: IF D>40LET Z 


"VELOCIDADE 


<W2>>-<6370 






«=" 


MUITO BAIXft" 


E3+I> 







tro situa96es podem surgir. Uma veloci- 
dade baixa, por exemplo, causara uma 
rapida perda de altitude e voce caira na 
terra, voltando ao ini'cio da Jornada. Se 
a velocidade incorreta causar uma lenta 
perda de velocidade, voce sera informa- 



do pelo computador com a mensagem 
"velocidade alta". Por outro lado. se vo- 
ce ganhar altitude, o computador mos- 
trara a mensagem "descida lenta". En- 
tretanto. se a velocidade for correta vo- 
ce orbitar^ o planeta. 



Alcan^ada a orbita. voce partira para 
a segunda parte da missao. isto e, entrar 
em contato com uma base estrelar. para 
a instala^ao de um canhao laser e um 
reator. o qual devera chegar a salvo ao 
seu destino. 

Apos a transterencia automatics do 
programa, voce deve responder ao input 
INICIAL ?. (Maiores detalhes sobre isso, 
no final do artigo). Entao, o computa- 
dor mostrara a relagao dos comandos 
que poderao ser utilizados nas manobras 
de ataque. Apos isso, serao dadas duas 
velocidades, uma pelo computador e ou- 
tra por voce. A primeira trata-se da velo- 
cidade da base, tomando-se como refe- 
renda sua nave, o que nos leva a dizer 
que a base FIXA move-se na sua dire9ao. 
A segunda significa a velocidade inicial 
que seu cai^a rumara em direijao a base. 

Logo depois. sera mostrado um pseu- 
do-grafico ilustrando (em propor^oes re- 
als) sua disiancia da base ou uma mensa- 
gem infomiando que sua distancia e 
maiorque 150 metres. 

Antes de entrar com novos comandos 
observe que, se a velocidade mostrada 
for negativa, voce ultrapassou a base, 
para corrigir entre com uma acelera^ao 
negativa. 

Apos mostrado o pseudo-grafico, ao 
lado, coloque o comando escoUiido e. 
em seguida, pressione ENTER. 

Os comandos sac os seguintes; 

A: Usado para aumentar a aceleraijao 
em porcentagem. por exemplo, si. 
voce entrar 10. como resposta ao 
input ACELERA^AO (%)?, tera 
sua velocidade acrescida de 10%. 

D: Distancia entre sua nave e oveiculo. 

R: Diminuiijao minima de velocidade. 

R2: Diminui^ao de metade da velocida- 
de. 

RT; Diminuiijao total da velocidade. 

F: Final das manobras. o programa se- 
ra transterido. 
A partir da mensagem de congratula- 

(;ao, voce seguira para a mais emocio- 

nante das tres etapas, que consiste em 

levar a carga para um outro setor fora 

do sistema solar, enfrentando difi'cei 

obstaculos. 

Agora voce mostrar^ toda a sua peri- 
cia em combate. Sua nave viaja a 100 
milhas por segundo e o setor a ser atra- 
vessado possui 1 500 milhas, donde se 
conclui que a batalha durari 15 segun- 
dos {nao reais). Assim que o programa 
inicializar, voce deve responder ao input 
INICIAL?, com um numero entre Gel. 
dando inicio a batalha. Os comandos a 
serem utilizados sao: 
S: Fara sua nave subir. 



Listagem 2 



n 



R 



i:"L"CLEAR : 
PAUSE "ATRAO 
UE": PAUSE *S 
UA HAVEOO D 
EVE":PAUi:E " 
ATRACAR NA": 
PAtJSE "BASE 
i: = >"iGCiSUB 2 
00 

2: PAUSE "COMHN 
tip?": PRINT " 
A! ACELERAR" 
:PRINT "P: R 
E MIHIMA": 
PAUSE "P2: 
EIA RE" 

5:PRINT "RT: 
E TOTAL.": 
PRINT "F: Ft 
11 DE JOGO": 
PRINT "D: DI 
STANCIA DA I; 
«SE" 
4: IF L=1LET 01 

GtjTO 50 
5:GaSUB 910: Q= 


IO:R=R'*1-^950: 
IF P >1000 
GOTO 5 

11: IF ' M"'10i:r--*f 
H'.iOO.'P^iUSE 
"PlUNTENHA 
BOn TRAEhLHO 
I " 

12: IF «'>199 

PAUSE "E.-CEL 
EHTE I '■ 

IT: IF A>300 
PAUSE "VOCE 
ESTA AFRijVhD 
01" 

14: IF A>4Q0 

PAUSE *'SUh V 

HL'H Ha HM"in" 

! PAUSE "ESTA 

i3ftRMHTrDA" 

15: IF A '600 

PAUSE "FmNTh 
STICC '": 
GOTO 9S0 

20:A=40.3*R: 
PAUSE "VELiJC 
IDADE DA FhS 
E: ": PAUSE A 

; " ti-S" 

'.nrpHUSE "''ELl.i: 
IIiMtE INlClH 
1 ■ .PlPH .' " : 



INPUT B: IF B 


";HiB=B+04^1 


>ftPAUSE "nui 


001*E:PAUSE 


TO i^LTA": 


"NOVA VELOC I 


GOTO 30 


DADE!- "iP: 


40:C=B*5280.-560 


GOTO 40 


0:B=C 


SO! IF M*="R"LET 


50!D=A-B:IF 0=1 


B=B-10:GOTO 


GCSTO 10 


40 


55: IF D'=Or.n^iiB 


S5: IF M*="F" 


=177 


THEN 990 


60: IF Q=1LET R= 


90s IF IH="P2" 


P- 2.095:Q=D: 


LET B=B-20! 


GOTO 20 


GOTO 40 


6i:lF P'-=150 


95: IF iif-"]} 


INPUT "Y DI« 


THEN 500 


TAfCiA •' 150 


100: IF M*="PT" 


M. "iMJ-!i:.OTO 


LET P=B-70: 


75 


GOTO 40 


62: IF D>130 


UQiBEEP I:PAUSE 


INPUT '■ ■/ 


-**-*i:oriAHBO 


= ":mj: 


INVALIDO***" 


GOTO 75 


!L=l:GOTO 2 


63: IF D>120 


200: INPUT "INICI 


INPUT " Y 


AL"' ";r 


- ';ni: 


210: RETURN 


GOTO 75 


300: PAUSE "DISTA 


64: IF D>UO 


NCI A CA EASE 


INPUT " Y 


! ":PfiUSE Di" 


= ";nj: 


IIETROS" : 


GOTO 75 


GOTO 61 


65! IP D-'lOO 


•aii"!:R=P+l .95^-1! 


INPUT " 7 


IF R-'IOLET R 


= ":h*: 


= 1.5 


GOTO 75 


920: RETURN 


66: IF D'?01NPUT 


973: PAUSE " 


Y 


t ": 


'■JMJ:G0T0 7 


PAUSE " 


5 


*": 


67; IF tcSOlNPUT 


PAUSE "'••' 


■i' =" 


PAUSE "COLIS 


:nt:GOTO 7^^ 


AO A" 


68! IF D^70INPUT 


974:Z=E'''-5280 36 


V = 


00) 


■';t1J:GOT0 7 


97S:PALiSE "vEi.Ol 


5 


IDhDE: "!:!'■ 


6'^: IF D>5niMPUT 


M/S"!0=l: 


" l' = 


RETURN 


";m*:goto t 


■5S0:P9USE "PREPv. 


5 


RE-SE PAPA H 


70: IF i:D<=50'*' 


": PAUSE "MAI 


D OjPAUSE " 


S EMOCIOMANT 


*": 


E": PAUSE "JU 


BEEP 3:PHniE 


PHADA NO-: 


"ATRAOUE Pe? 


PAUSE "E-^PhC 


FEITO.":Gi:iTl. 


PPOFijNDO" 


5 


■?gi:Pt^iJSE "EOtt S 


75: IF M*=-'h" 


ORTE" 


INPLIT "flCELE 


5'aO:CHHlN "5" 


RACAr. ■ •; . -> 





D: " " " descer. 
F: Comando de'.ataque. 

Observe que voce tem direito a dois 
comandos, no mesmo pen'odo de tem- 
po, maiores detalhes ser3o sentidos e 
informados respectivamente, por voce e 
pelo computador. 

OS PROGRAMAS 

Agora vamos ver os comandos e ob- 
servaijoes necessarias para o perfeito fun- 
cionamento dos programas. 

Inicialmenle, deve-se ressaltar que, 
pelo fato do PC-1211 possuir 1 Kb de 
memoria. e necessario, para esta aventu- 
ra. que se utilize a interface para cassete. 
Alraves do comando CHAIN TITULO 
DO PGM. podemos aulomaticamcnte 
transferir um novo programa, apos o ter- 



mino do precedente, sendo este inslan- 
taneamente inicializado. 

Para aqueies que nao dispoe da inter- 
face, uma pequena modifica^ao deve ser 
feita. Na 6rbita (linha 360). troque 
CHAIN 2 por END ; no ataque (linha 
990), CHAIN 3 por END , 

Como o PC-1211 nao possui as ins- 
truijoes RANDOM e RANDOMISE, para 
manipula^ao de jogos, loi incorporado 
ao ataque e a batalha espacial um gera- 
dor pseudo-random ico, que seraativado 
quando, em resposta ao input INICIAL?, 
for introduzido um numero entre Gel. 
Para novos desatios deve-se variar esse 
numero. 

Depois de digitadus. os programas de- 
vem ser salvos por CSAVE, seguindo 
OS rotulos: orbila (CSAVE I), ataque 
(CSAVE 2) e batalha espacial (CSAVE 3). m 
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AVENTURAS ESPACIAIS NO PC-12n 




Listagem 3 






Para chamar os programas em modo 
DEF , deve-se pressionar SHIFT, segui- 
do dos seguiiites rotulos: 6rbita (SHIFT 
K), atraque (SHIFT L) e batalha espa- 
ciai (SHIFT M). 

Antes de terminar, algumas observa- 
g5es muito importantes. £ precise ter 
muito cuidado na introduijao dos espa- 
^os (SPC), pois eles determinarao o des- 
locamento do objeto no display. Para 
verificagao da correta introdui^ao use 
MEM, comparando com as seguintes re- 
ferencias; 
Orbita - passos:373 

memorias: 46 
Atraque - passes: 1 5 

memorias: I 
Batalha espacial - passes: 1 72 
memorias: 21 

Finalmente, para dar ini'cio as simu- 
la^oes espaciais. lembre-se de posicionar 
a tita magnetica no inicio da 1? PGM e 
carrega-la com a ijistrufao CASSET 
CLOAD(CLOAD 1). 




i: '■(■VPAUSE "BA 50:PAU£E "COflBA "— "!EI: "''^' 
TALHft ESPACI TE:"!EEEP 2: PAUSE W$:H*: lOOiPAUSE "VOCE 
ftL":GLEftR : IF EJ=" + " ■>,-.,..iiE$ FOI":PftUSE " 
INPUT "IMICI PAUSE "ESTRE 74: IF ]$="F" DESTRUIDO"!X 
AL'' "iH LA ADIfiNTE" PAUSE "FAISE =Ci.S=U!GOTO 
5:H$="=0>"tQ*= 60:IFE*="< = " RS SEN": onn-lrv- -, ct u 
PftUSE "NAVE PAUSE "EFEIT ^ °" 1 /u:;^:bF,L, 

10:M=5:G0SUB 90 PIRATA hDIAH rr'sGOTO t=.5 ^,„ f" „"'^FZ 
TE" 75! IF jt="S" ^'°'l^^^'Rbf,'^PM 

20HF R=lLET E* 65:K=K+1:[F K=3 PAUSE "EVASA ,-.,■ 7c v;^rcT u. 
= "+■" PAUSE "TAPDE SEM EFEITO "'" „ ^,;?blTnoJ 

2i:IF R=2LET EJ DEI1AIS": ■•:GOTO 65 ^=^ v<r, pt uJ 
= " " GOTO 80 76: IF Jt="T)" 250- tF X<eLET US 

22! IF R=3LET E$ t&: INPUT "COMAN PAUSE "EVASA ocxncu" 

= "<=>" DO? -UJ SEM EFEITO ^-n. ,c v' i n, ct ,i 

23;:lF R=4LET E* 70: IF J»=."F"IF ":G0TC1 65 -*- i_.. '^ .?^ " 
= '■♦■' Lt="F"PAUSE 77! COTO 45 rftuPW ' 

24:IF R=5LET ES Uf JHJi "-■' SE* 80: IF £%=••*" --n- if vo ■! FT ui 
= "< = " :PftUSE U5!HJ PAUSE Nt'.HJJ --'■' i^..' ... 

30:^=5:00505 90 ^'■— "tEJ! " +":PHUSE pfti ipn 

PAUSE VltlHSl UtiHtV *■": ^eOilF \<14LET U 

31!IF R=1LET L* "— "'Et PftUSE Ht = HJ: ~^-'^' il.r-^'^^^l .^' 
= "S" 71: IF J*="F"IF " *":PaUSE W * ^|,pf 

32:IF P=2LET L* Ut="F"PftUSE t!H*;-^": 300:EEEP 4:PAUSE 

="11" i4r!H*;" " PAUSE w*;- • "paLben^'-. 

33! IF P=3LET Lt :Et!PHUSE Wt ".E* PAUSE "VOCE* 
="F" :hj;" — *": gSMF Et=" + " TEVE":PAui 

^5!X=>;+i:G0SUB F'A'JSE w*:h*; pause w*;" + "surE=;^o"- 

200:FEEP i: " ~"!PAUSE "lOOTO 100 PftUSE^NA TR 
PAUSE "TEMPO Wj;HJ:GOT0 1 WiPftUSE WJ:HJ; AVESIft DO" 
: "ty.i" SEGS ''■' " -"'EI: ■^iniPAUSE "SETOP 
":IF X>15 72: IF J*=ULET PAUSE Nf:Hj: -'" ,":|ij5 
THEN 300 E*=" "■■GOTO " - "iEI: 900: D=> >.. 223+N '" 

l^tK=0 45 PAUSE m--m; 6:N=D-INT B! 

40:PAUSE W*;H»; 73:IF JJ="F" " - '.El: P=njT \M*N*1 
QSiEl PftUSE W*:H*: PAUSE U«:HJ! iJRETURH 

45! IF E*=" " "~ "'Eti "- "'E* 
PAii-.E "ESPAC PfiiJSE WJJHJ; ?5!PAIJSE WJ?" * 
ftVftNTE'LIM "— "'E*- - "'E*' 
P0";GOTO 10 PAUSE W$;H*; PAUSE w*;" 




Ricardo Silva de Macedo esta cursando o 7? 
pen'odo de eletrdnica. na Escola T&cnica Fe- 
deral da Bahia. onde utiliza o PC- 121 1. 






SEU FUTURO COMECA AQUI. 




PRO GRAMAC AQ OPERACAO DIGITACAO 

(COBOL & BASIC) 

PRO GRAMAC AQ ESTRUTURADA ( Para quem ja fez Cobol 

& DBtaniELjEr= 




253-1120 



Com a Centraldata 
a entrega e imediata 



263-5876 



Mantenha o seu computador bem alimentado adquirindo 
produtos de qualidade consagrada 



r 



ilCEIIIRIllDAIA 

■W I Cam e Reprc'Sffnlacoes Ltda 



I m£ier 

^ MEDINA 



MEDINA 127 s/309 311 



NITEROI 

AURELINO LEAL 25 



MADUREIRA 



EDGAR ROMERO 244 s^ 301 



.ABEIALPBDD, 



D 



DISKETES: 5 1/4 e 8" • marca 

VERBATIM 

ETIQUETAS PIMACO — PIMATAB 

PASTAS E FORMULARIOS CONTlNUOS 



.'l=US^^-'5ffS 



Discos Magn^tjcos: 5 Mb, 16 Mb, 80 Mb, etc. 

Fita Magn6tJca: 600. 1200 e 2400 P6$ 

Fita CARBOFITAS p/lmpressoras: Globus 

M 200 — B 300/600 

Fita p/lmpressoras: Elebra, Elgin, Epson, 

Digilab, Diablo, etc. 

Cartucho Cobra 400 



AV. PRESIOEMTE VARGAS N.o 482 GR 207 TEL. (021) 253-1120 E 203-5876 
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radada /V\S 



Se voce tern um micro e esta QR T em 80 ou 40 metros par falta de 
espaco, nao sabe o que esta perdendo\ Amplie seus horizontes com este... 

Calculo de antenas 
dipolo encurtadas 



Luiz Carlos Nardy ~ PY2A QO 



Apartir de um artigo publicado 
na revista '"CQ'" de dezembro 
de 1981. bem como de ele- 
mentos para calculo de bobi- 
nas fornecidos pelo colega Bruno, 
PY2DIL. desenvolvemos o presente pro- 
grama, que calcula uma antena dipolo 
de nieia onda. monobanda. de larnanho 
reduzido. 

Esta e uma excelente op9ao, per exem- 
plo. para os colegas que desejem operar 
na faixa de 80 metros e possuam terreno 
com fffofluKlidade de apenas 25 ou mesmo 
20 metros. Enibora quaiquer antena en- 
curtada apresente inconvenientes. lais 
como redu^ao de eficiencia de irradia- 
930 e sintonia mais cn'tica. com a ROE 
se elevando a 2:1 cerca de 25 KHz para 
cada lado da freqiiencia de ressonancia. 
temos recebido otimas reportagens. em 
80m. com uma antena de apenas 21 me- 
tros de comprimento, contra os 38.5m 
tradicionais (NOTA DE PYlDWM:£u 
tambem\) 

O programa. para a logica SINCLAIR, 
e de facil digitai^ao. e sua compreensao 
esta ao alcance de quaiquer principiante. 
Especial alen^ao deve ser dispensada a 
digitaijao das formulas, principalmente a 
da linha 120: o esquema mecanico da 
antena esta na figura 1 e, para maior 
tranqiJilidade do usuario, fornecemos 
valores como cxempio no texto. que ser- 
vem como teste da cxatidao da digitatjao. 
Apos ser carregado no micro, a entra- 
da no video e automatica, surgindo logo 




A Comprimento tola! da antena. em 

funfoo do espafo disponivel. 

B - Distdncia enlre o ceniro do isolador 

central e o inicio do enrolamento da bobina. 

L - Bobina. 

P - Ponta da antena. I 'ai do fim do 



enrolamento da bobina ate o exiremo da 
antena. 

IC Isolador central. 

It' - Isolador do extremoda antena. 

CC - Cabo coaxial de descida. 



a primeira pergunta: 

ANTENA 

COMP. TOTAL (M)? 

Deve ser introduzido, em metros. o 
comprimento ma'ximo que se pode dar a 
antena. Como exemplo, digitar 25. E 
imporlante notar que. para maior rendi- 
mento, o cfomprimenlo total de uma an- 
tena encurtada nao devera ser superior a 
90% nem muito inferior a 50% do com- 
primento do dipolo normal para a fre- 
quencia considerada. 

FREQUEN, (MHZ)? 

Para continuar com o mesmo exem- 
plo. digitar 3 7; a freqiiencia devera ser 
digitada em MHz. com a parte decimal 
separada per ponto e nao por vi'gula. o 



mesmoservindo para os demais dados. 

NUMERO DO FIG? 
10, 12, 14. 16, 18 

Para a potencia ate de um delta 500 
pode muito bem ser utilizado o fio 14. 
Digiiar. portanto, 14; observar que estao 
disponiveis apenas os mimeros pares, de 
10 a 18. Na realidade, esses mimeros 
nao deveriam ser utilizados. pois, em 
lugar do codigo numerico, agora e usada 
a medida do diametro do condulor. Os 
mais exigentes poderao fazer as possi- 
veis modifica^oes no programa. nao es- 
quecendo de modificar lambem a subro- 
tina. 

DIST. DO CENTRO 
ATEBOBINA(M)? 

E a distancia em metros entre o cen- 
tro do isolador central e o ponto onde 




N'a figura 2 temos uma stigestdo para fadlitar o ajuste do comprimento da "ponta da 
antena". para abten^-do da menor ROE. Hm cada lado da antena. P seria dividido em 2 seg- 
mentos (PI e P2j. sendo que P2 seria hem menor, com 20 a jiO cm. e ficaria como um 
"rahicho" da antena. Isso facilitaria muito a redufdo (simples cortc) ou aumento do tama- 
nho da ponta da antena. Observar a soldo indicada no desenlio. 



come^a a "bobina. Sugerimos seja utili- 
zado o valor resultantc da divisao do 
comprimento total da antena por 2.5; 
como 25/2.5- 10. digitar 10. Surge, 
entao. a primeira resposta: 

INDUTANC1A=69 MICROH 

Ja sabemos que as duas bobinas a se- 
rem usadas. uma em cada lado. deverao 
ter a indutancia de 69 microhenries. 
Esse valor sera, automaticamente. trans- 
ferido para a segunda parte do progra- 
ma. que calcula o mimero de espiras de 
cada bobina: 

BOBINA 
DIAMETRO (CM)? 

E diametro externo. em centime- 
tros. do tubo sobre o qual sera enrolada 
a bobina, Na pralica. podera variar de 



2.5 a 5 cm: no nosso exemplo. vamos 
digitar 5. 

NUMERO DO FIO? 
10,12,14,16,18 

Para a potencia de um DELTA 500. 
digite 18. O micro, em seguida. nos 
dara as respostas finals: 

NUM. DE ESPIRAS=43 
PONTA ANTENA-2.45 M 
CABO COAXIAL=26.76 M 

A ponta da antena e a parte que vai 
da bobina ate o extremo da antena. assi- 
naiada com letra P na figura 1. O com- 
primento dado para o cabo coaxial c de 
meia onda eietrica de freqiiencia de ope- 
ra^ao, Temos utilizado cabo coaxial de 
75 ohms, mas pensamos que o de 50 
ohms funcione igualmenle bem. 



CONSTRUQAO 
E AJUSTE DA ANTENA 



A antena e construi'da na forma habi- 
tual, com exceqao das duas bobinas de 
carga. com as emendas de fio bem sol- 
dadas. 

.As bobinas poderao ser enroladas so- 
bre tubos de PVC (para instalai;ao lii- 
draulica) de parede grossa. com diame- 
tro externo de 2.5 a 5 centi'metros. O 
fio deve ser de cobre esmaltado e as 
espiras enroladas juntas, sem espa(;amen- 
to. Apos enrolamento. deve ser aplica- 
do um verniz ou rcsina epoxi (Araldite 
ou equivalente) sobre a bobina. para 
protege-la da a^ao da chuva. que aumen- 
ta a sua indutancia. Da mesma forma, 
nao esquema de vedar. de preferencia 
com borracha de silicone, aconexaodo 
cabo coaxial com o isolador central. 

Todo o calculo e realizado prevendo 
condiijoes ideais de trabalho (altura. 
ausencia de obstacuios etc.). dificilmen- 
te conseguidas. Assim e quase certo que 
venha a ser necessario um pequeno ajus- 
te no comprimento das duas ponlas, em 
busca da menor KOE. Tal ajuste depen- 
dera muito mais de paciencia do que de 
conhecimento. e a sugestao da figura 2 
sera' bastante litil. 



De PYIDWM 



Bern, amigos, aqui esta a quarta edi^ao da RODADA MS. Com 
satisfa^ao e orgulho constatamos que estamos caminhando a 
passos largos em dire^ao aos nossos objetivos: a RODADA 
MS e a Rodada do Micro ja slo uma realidade, conforme atestam o 
grande volume de cartas e a sigtiificativa prcsenfa no aj. Os mais sin- 
ceros agradecimentos a todos os que nos tern prestigiado e a todos 
osqueconoscocolaboram.em particular a PY2AQO - Luiz. 

RODADA MS intemacional! Recebida conespondencia de 
CX2AK - Juan Primavcsi, de Montevideu, Uruguai.com um formi- 
davel incentive e algumas solicitai;6es, ja providenciadas. Gracias. 
hermano: saludos cordialesy hasta siempre'. 

Coirespondencia recebida: do CWDF, boletini 02/84 ;de PY2AC 

- Alfredo, dando noti'cia de que vem sendo realizado. atraves de 
PY2AA - DS/SP, um cuiso de BASIC aberto a todos os radioama- 
dores interessados. a cargo de PY2EIJZ - Domingos, c transmitido 
pcla repetidoia de 146.940 MHz. iiavendo previsao de um segundo 
curso na faixa de 40m: de PYIBA - Liege, incentivando e prome- 
tendo coiaboiacoes; de PY2U0I - NUton, PY2IPL - Pedro, PT9AS 

- Antonio, PT9NR - Neuza. PY3VUV - Deco e PY2WHG - Giro, 
com palavias dc inccntivo : de PY2KG - Oovis, uma fita com varies 
programas para apreciaijao; dc PY2AQ0 - Luiz, com um programa 
de Regislro de Comunicados para a linha Sinclair; dc PY5CIG - Al- 
cione, com mais uma colabora9ao, que facilitara tremendamente a 
Canada ao DXCC - aguardem nossa proxima edi^ao. 

PY5MR - Elmar envia a correi;ao de um pequeno furo (SRI, 
HI!) no Professor Picapau. Alterar as linhas que se seguem para: 

£^10 A=RND(26) + 6H : GOTO UbO 
i*?0 A=RND(]0) + 1*7 : GOTO kbO 
£t30 \ = RUD{i*7) + ki 

Grato. Elmar, pela ajuda. 

Rodada MS lan^a um apelo (desafio?. . .); a analise da conespon- 
dencia recebida mostra uma cnorme incidencia de soUcita^oes de 
pTOgramas/interfaces paia recep^ao e/ou transmissao de CW c 



RTTY. Sabemos, de ouvir pelas faixas, i^ue varios colegas tem desen- 
volvido trabalhos nessc scntido mas, ate agora... QRT total! Vamos 
saiide trasdo toco? 

CQ! CQ! Prorrogado ate 15 de outubro o prazo de recebimento 
de QSLs e cartas para habilita^ao ao sorteio das Ues assinaturas por 
um ano de MS. O motive? "Esquentar" o sorteio e dar chance a um 
mimero maior de colegas de participar. 

PYIBCN - Machado esta organizando uma Rodada do Micro em 
VHP, para aregiao RJ.diariamente a partirdas 20:30h.na repetido- 
ra 146.820 MHz. Grate, MAC, c que as Rodadas do Micro se multi- 
pliquem! 

A partir de agora os nossos problemas de espaco para instalaijao 
de antenas dipolo terminaram. O trabalho publicado nesta edi?ao. 
de PY2AQ0 - Luiz, vem de encontro aes anseios de uma infmidadc 
de colegas, que se veem impossibiiitados de operar em 80 ou mesmo 
em 40 m por nao dispor de um projeto que resulte em uma antena 
de tamanlio compativcl com o espaco disponivel. .A sohn^ao propes- 
ta pelo Luiz e simplesmente genial: a antena e calculada a partir do 
comprimento total fornecide pelo usuario! Embora de facilima 
adaptable paia qualquei micro, o Luiz teve e cuidado de enviar 
tambem uma versao para a linha TRS 80, quaiquer modelo ou con- 
figura^ao, e aqueles que o desejaiem poderao obter uma copia da lis- 
tagem mediante a remcssa de um envelope auto-endere?ado e selado 
(SASE). 

Divirtam-se construindo a antena. excelentes QSOs, comparetjam 
a Rodada do Miao e ate nossa pro.xima edi^ao. 

HPECUAGN 73 ES GL FM PYIDWM. 



A RODADA MS 6 coordenada per PYIDWM - Roberto QUITO de 
Sant'Anna. Quatquer correspondfincia e/ou colaboracao deve ser 
enviada aos seus cukJados. para a Av. Presidente Wilson, 165, grupo 
1210, CEP 20030, Rio de Janeiro, RJ. Contatos direlos via Rodada 
do Micro (7097 KHz, das 16K)0 as 18:00h). Patruiha da Madrugada 
(7055 KHz, das 22:00 is 23:00h) ou pelo telefone (0243) 54-3355. 
ramal 594. 
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cAlculo de antenas dipolo encurtadas 



Ficaremos ao inteiro dispor dos inte- 
ressados, para reportagens, troca de 
ideias sobre o programa, ou maiores in- 
fomiafoes sobre a construfao e ajuste da 
antena. Podemos ser encontrados diaria- 
mente na frequencia de 7097 MHz, das 



16.00 as 18.00 hs, na Rodada do Micro. 
Ate la, muitos bons QSO e muitos novos 
amigos nas faixas da amizade. 

Para copiar o programa em fita casse- 
te: digital GOTO 400, ligar o gravador e 
digital NEW LINE (ou ENTER). 



LUIZ CARLOS NARDY - PY2AQ0 4 fun- 
cion4no publico aposentado e radioamador 
M 37 anos. AuTodidata em programacao, pos- 
sui um Dismac D8001 e urn CP-200, sando es- 
te o seu preferido. Colaborador da RODADA 
MS desde sua cria^ao. 6 o comandante da Ro- 
dada do Micro. 



Consideragoes sobre o programa 



10 a 90 - solicita e imprime os dados necessarios ao cilculo da in- 

dutanda da bobina. 

100 - manda para a sub-rotina, onde o numero do fio e substituido 

pela medida do raio de sua seci;ao tiansveisal, em metros. 

105 - retorno da sub-rotina. seguindo ate 120, onde esta a formula 

para calculo da indut&ncia que, em' 120, sofre um arredondamento 

do valor. 

1 35 - imphme o valoi da indutancia. 

145 a 180 - solicita e impiime os dados necessarios ao calculo do 

numero de espiias da bobina. 

200 - para coincidencia de unidades, tiansfonna metros em mili'me- 

tros e, tambem, o raio da sec^ao transversal do flo em seu diametio. 

205 a 220 - as duas formulas executam calculos repetitivos, ate 

que, para a indutancia ja encontiada, a bobina venha a tet um compri- 



mento que cotresponda ao resultado da multipllca^ao do numero de 
espiras pelo diametro do fio. tsso porque o enrolamento deve ser 
feito com espiras nao espa^adas. Os calculos se tniciam com o nume- 
ro arbitraiio de 40 espiras para a bobina. atribui'do na linha 195. 
235 - imprime o numero de espiras da bobina. 
240 - calcula o comprimento da bobina, acre seen tando^e 10%, 
para compensar imperiei^es do enrolamento manual. 
245 - calcula o comprimento da "ponta da antena". 
250 - imprime esse valor. 

255 - calcula o comprimento do cabo coaxial de meia onda eletrica. 
260 - imprime esse valor. 

265 - op9ao para novo calculo ou sai'da do programa. 
300 a 330 - sub-totina ja referida. 

400 a 410 - comandos para gravar em fita cassete e fazer com que o 
programa rode automaticamente, quando carregado. 



" 










1 









programa 




1 


REM HriTENH DIPOi-G EnCUR" 


"hDh 


170 


PRINT j.0 , 12 , li , 16 . IS" . 


2 




> 3 J 


160 


INPUT P 
Pp-^r-jT R 


wEM P-.-:-w!-Cr - LUIZ C NHiPI 


' T 


1 


REri BOX 28-JfiU-17200-5P 




135 


"P3~ 


cr 


REM ,.,,,..-,.. 


I : 1 


J. = '<iJ 


GJSUB 300 


:=: 


CLS 




195 


_t! N=40 


10 


-PINT The 4; ■■i=iNTENP; DIPC 


LG 


.=. \J S.' 


_-i K=K^200 


ENCU^ 


:TPDh" 




i \i." w 


_!! 1 i = INT iN^*;z:*G -lOO/ '^i^n 


15 


PRINT 




Gj;.^4,!,. ■ 1 


20 


PRINT TAB 3;"PlHTENH' 






IF i_=:I THEN GOTO 225 


■I' =! 


PRINT ^ CQhP .TQTRL l M ,■ '?'' j 




vl~ 


^ET N = INT (N*10x-^6 ■■ INT I _ 


30 


INPUT P 




^1000; J .-1000 1 


■-i|C: 


PRINT P 




c i£ L' 


GOTO £05 


40 


=^RInT "FREQUEN. if-iHZ.i ■?" > 




^ ^ "Z' 


z i_ U '-." 


45 


INPUT r 




— ^- \j 


_5T N=INT n-J-K.5' 


50 


PRINT r 




225 


= =:Ir-|T NUf-^ = DE ESPIRPi5 = " .N 




i=RlNT "NUhERO DO FlCr"-" 




:=.4C 


_E~ 35=N7^R 100*1. I _ 


60 


PRINT -'13 :i2 , 14 , 16 , IS" . 




245 


_pT P = i.NT 1 ( M .■■■■2 -B -Gb ■ 7rl00-, 


F.R 


INPUT R 




5i -100 1 


70 


PRINT R 




250 


PRINT "i--GNTH RNTENPi -"" , P . 


"7=: 


PRINT ■■■DI6T.D0 CE.NTRG" 




M" 




30 


PRINT hTE BGBINPi U-l !' ■? " , 




Hi-5 ^IZ ' L _ =1?--! , 1. ll-L'-*- . ^'t ■■{- *100- , 

5) ..-■100 


65 


INPUT B 




90 


PRINT B 




260 


R K I NT ■ P s C OR ;•:. I Pi L = " ■ G , 


QR 


r Pi 5 ; 




M" 




100 


1 - 1" ?=• 1 I F- : -; iTi 




26^^ 


P R I NT PiT 21 . - " ■ * UT R C C K L L ■_ 


105 


LEf~C=Pi/2-B 




LG ■"■ 


: 5 .OU N.I *-^ 


110 


LET D =7 1.34 15 




270 


INPUT 5 


"' ■! F 


LET E=D/P-B 




■-■ "^s 


IF C$ = "-5" THEN RUN 


120 


LET L=454,655/F + +2* ; '.LN 


1 ^ '" 


230 


<—■ i_ o 


R.I -1 


* 1 1. 1-F*B/D I **£-ij /E- i.LN 


'. C ■'" 


"— ■ ;-; ^ 


PRINT RT 10 ,3; ■■* + ^3£MPRE G^ 


pj -1 


+ t f F*": ,-T:t"i -i-^S — I'l -''C'- 




'v' + * + 


' 


125 


LET L=INT "L + .E:! 




290 


~ T P 


130 


Fl 1~LI 




3:00 


IF R = 10 T^F^.^ i_£^ R=. 001295 


' ~\'^- 


PRINT ■' IND .r-tICROH = " ,L 




305 


IF R=12 TkEN uET R=. 001025 


140 


PRINT 




310 


IF P=l4 TnEN LET R=. 0005 15 




PRINT TflB 3:"EGBlNR- 




315 


IF R=16 THEN LET R=. 000645 


150 


RRINT 'DIPMETRG i GN1 ?" , 




3 "* -^ 


l!- h: = lc THEN LET R-= . 00051 


-T =; ^ 


INPUT G 




330 


RETURN 


160 


=RINT G 




400 


SfiUE -RNTENIS" 


165 


PRINT -NUnERO DG FIG"' ' 




4 10 


Run . 
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Urn sistema cheio de inovaqoes para quern tern urn TRS-60 model o I e gosta de ca/cu/ar 
o orQamento naponta do I4pis (ou me/hor, nas tec/as do computador) 



Planilha orcamentaria 



Talvez 6 leitor esteja se pergun- 
tando: "Mais um or^amento 
domdstico... ?" Sim, € outro 
desses programas, mas com al- 
gumas implementa93es que o tomam di- 
ferente e mais interessante. 

Desenvolvido paia os compativeis 
com TRS-80 modelo I, nosso sistema 
apresenta umci(5pi2>'(vejaafigiira l)que 
corresponde a uma planilha de 14 assun- 
tos por 12 meses, possuindo comandos 
especiaispara: 

. mostrar um trimestre a partir de um 
dado mes e referente a um dado assunto 
(modo A); 

. alterar os conteudos das janelas da pla- 
nilha, podendo andar sobre ela (modo B); 
. fazer somas setoriais, dando como en- 
trada um mes base e um final seguidos 
de um assunto base e um fmal (modo C); 
. mover a planilha localmente (modo D); 
. gravar a planilha (modo E); 
. aumentar o numero de assuntos ate, no 
maximo, 14 (modo F). 

COMO USAR 

Rodado o sistema, vem a pergunta se 
o usuario deseja ler dados gravados ante- 
riormente ou nao. Caso afirmativo, o 
sistema inicializa a planilha com o con- 
teiido da fita; caso contririo, pede que o 
usuirio de inicio ao preenchimento da 
coluna de assuntos (a esquerda) com tu- 
do o que deseja especificar, como por 
exemplo: luz,gis, condominio etc 

Ao final, podemos voltar ao progra- 
ma principal digitando FIM mesmo que 
nao tenhamos utilizado os 14 campos. 



Helv^io C. R. Netto e 
Jorge Luiz Grivot Maia 



Planilha orcamentaria 



if) CLEAR iOOO:DEFlNT I,J,K:GOSUB 2000 : H t^fH R fNGt ( 1 ^\ 32 ) 
30 CLS:PRTNTai43,") > PLANILHA ORCAME'NTAR lA <<"; 

30 PRINTa4Aa,"LER DADOS DA FIIA ? <S/N) "-:G0SU[1 4500 

4U 1FX4="S",X4="":G0SUB 2^,(30 ELSE IF XS<>"N".:tn ELSE GOHUB 

50' AD:=t : ID=1 sGOSUB 1000 :PR lNTa65 , B5; :GOSUB 120 

60 PRINT365,B1; =PRlNTa65."M0D0? "-:GOGUB 1500= IFX%="FIM" , CL 

ELSE IF Xl="",6a 
70 X=ASCCX%):IF X<65 OR X>7Q.60 ELSE ON X-64 GOSUH lOO.MO, 
00,510,560 
00 GOTO AO 
ion PRINTS)6ei 

X>12, 100 

PR1NT365 

X>M, ilD 

GOSUB 3000:G0SUB 

RETURN 

140 P!nNTa&5,STRrNRl(12,i53); : IN^ID: AN=AD : J= 1 !K = i 
ISO PRINra,J+143^K»A4," ";:FOR 1=1 TO I'O^NEXT 

160 A%=INKEYI:IF Ai="",i70 ELSE IF At=CHR1. ( 1 3) , 220 ELSE ON 
1) GOTO 100,190,200,210,60 

170 PRINTyj+14a+K«64,CHHi( 140> ; :FOR 1=1 TO 20:NtX]:G0T0 150 
iBO IF AN>AD,AN-AN-i:K=K-2 

GOTO 160 

IN=IN+i: J=J+16 



OR 

110 

OR 

K:o 
1 :i[) 



,"MES BASE? ";:GOr;MB 4500: IF 
ELSE ID=X:PRINTaA5,B't; 

."ASS base:'' ";:G0SUB 4500: IF 
ELSE AO^^X 

4000 



Xl< >"",X=-yAL(X4):IF X<1 
Xt< >•"•, X=UAL(X%) : IF X(l 



UALCA 



185 
190 
195 
200 

205 
210 
215 
220 



IF IN<I0+2 

GOTO 160 

IF AN<AD+6,AN=AN+isK=K+2 

GOTO 160 

IF IN>ID.IN = IN-l!j=.)-i6 

GOTO 160 

IF AS%{AN>="",60 ELSE PR INTflJ + l 44+-K»64 .;: GOSUB 4500:IF WL ( X 
i) >0,V(AN,IN)=yAL(X%) !IF AN< AD+6 , K=K+2 : AN---AN+1 ELSE PRINTajM44i 
K#A4,B*; 
230 GOTO 160 

240 PRINTa65,8%r!PRINT365,"MES BASE? "::GOSUB 4500:IF Xt<>"",IF 
yAL(X%)>0 AND yAL<X%)<i2,IN=VAL(X4) ELSE 240 ELSE IN=ID 
250 PRINTa65,B4. :PRINTa65,"MES FIM? ";:GOSUB 4500:IF Xl<>"",IF y 
AL<XI))0 AND VAL(X%><15,IM-yAL<X%) ELSE 250 ELSE IM=1N 
260 PRINTa65,B$; :PRINTa65,"ASS BASE? ";:GOSUB 4500:IF Xt<>"",IF 
yAL(X5)>0 AND "JAL ( X% )< 1 5 , AN=VAL < X% > ELSE 260 ELSE AN=AD 
270 PRINTa65.Bl; :PRINTa65,"ASS FIM? "-:GOSUB 4500iIF X4<>"",IF U 
AL(X1)>0 AND yftl (Xt)<12,AM=UALCX5) ELSE 270 ELSE AM=AN 



"MAIO","JUNHO' 

. "DEZEMBRO" 



J 



280 PRINTa65,STRINGl(12,153) ;:T0=0 
290 FOR J=AN TO AM 

300 FOR I=IN TO IM: TO=TOty ( J . I) :NEXT 
310 NEXT 

320 PRINTa65,B%; :PflINTa65,T0; 
330 IF INKEY4="",330 ELSE 60 
400 PRINTaA5, 81; -•PRINTa65, "PRONTO"; 
410 A%=INKEY'BiIF Al = "",410 

420 ON UALCAl) GOSUB 430 , 450 , 470 , 490: IF A«="5" , RETURN ELSE 410 
430 IF AD>i,AD=AD--l:PR]NTa74,[:HR4<l26); :GOSUB 400D:G0SUB 3000 
440 RETURN 

450 PRTNTa74,">"; :IF 10=12, ID=1 ELSE ID=ID+1 
460 GOSDB 3000:RETl)RN 

470 IF AD<I4,A0=AD+l:PRINT374,"y"f ;GOSUB 4000:G0S1JB 3000 
480 RETURN 

490 PRINTa74,"<";: IF ID=1,ID=12 ELSE ID=ID-1 
500 nOSUB 3D00:RETURN 

510 PRlN7a65,B%: :PHINTa65, "PRONTO ^ ";:G0SUB 450n:TF Xt="S",510 
ELSE PR IN 1365, B*; : PR INTa65 , "GRAUANDO" ; 
520 FOR AN=1 TO 14 

530 A*=""iFOR IN=1 TO 1 2: Ai=At+STR4 < V ( AN . 1 N > ) +"3" : NEXT 
540 PRINTH-1,AS4(AN) ,A4:NEXT 
550 GOTO 60 

560 IN=l:GOfiUB 35O0 = G0TO 60 

1000 CLS:FOR 1=^0 TO V60 STEP J 28 : PR INTai , STR ING4( 64 , 1 40 ) ; sNEXI 
iOlO FOR 1=14 TO 63 STEP 16:F0R J=l TO 15 STEP 2:PR INTai+ J»64 , CH 
H%(. 191 ); :NEXT!NEXT 
1020 PRINTa65,STRIN65(12,153); 
1030 RETURN 

2000 DIM M%{12):F0R 1=1 TO 12:RFAD M9;(1):NEXI 
2010 DATA"JANEIRO","FEyEREIRO","HARCO","ABRIL 
ULHO" , "AGOSTO" , "SETEHBRO" , "OUTUBRO" . "NOUf MBRO 
•2020 DIM ASl{14>.y<i4,i2) 
2030 RETURN 

2500 FOR 1=1 TO 14= lNPUTW-1 , ASt ( I ) , At = IFAt="" 
2510 IF MID%(Al,K,l)="a",y<I, J)=VALCXl):J=J+isX4= 
,2530 

252U X4^:Xl+MID*<Ai,K , 1 ) :K = K + 1 :GOTO 2510 
2530 NEXT :RETURN 
3000 IN=^1D:AN=AD 

3010 FOR 1=14 TO 47 STEP 1 6 :PR INTS M 66 , Bl ; : PR INTai+66 , M4 ( IN) ; : FO 
R J=2 TO 14 STEP 2: PR INTBI +66+ J*64 , Bt ; 
J»64,V<AN, IN) ; 
3020 AN^AN+HNEXr 

3030 AN-AD:lF I N ( 1 2 , IN=TN+i ELSE IN=1 
3040 NEXT 
3050 RETURN 
3!,oa fN=i 
3510 FOR I< = 1 
3520 FOR 1^-2 
OSUB 4500:IF X4 
3525 IN=IN+1 
3531) NEXrrNEXT 
354U RETURN 
41101) AN=A[> 

40)0 FOR 1=2 TO 14 STEP 2 :PR INTai»64+66 , 8% ;= PR IN 131*64+66 , ASi( AN 
)::IF AN<14,AN=AN+1 
4020 NEXT:RETURN 
4500 Xi="":PRINT CHR%C14D); 
45IU Al^INKFYl; IF At^"",4510 

4520 IF A%=CHR1it 13) .PRINT CHRl ( 8 ) ; :RETURN ELSE IF Al=CHR4(a) AND 
LEN(X4)< >O.X%=LEF r4(X4,LEN<X'6)-l ) ELSE IF LEN( X% + A1 X 12 , Xl=X% + A 
1 ELSE PRINT CH^KR) ; :RETURN 
4530 PRINT f:HR4<8) rAl;CHR4(14D) J :GOTO 4510 



2530 ELSE J=1:K=1 
:K=K+i:IFJ=i3 



IF yCAN, IN) >0,PRINTai+66t 



TO 2:G0SUB 1000 

TO 14 STEP 2:PRlNTai*64+66,ASl(IN>r :IE ASi(IN)=' 
FIM", RETURN ELSE IF X40"", ASK IN)=X% 



MODO? n JANEIRO [] FEVEREIRO [] MARgO 



LU2 



D 



D 







Figura 1 

- Display 
da planilha 



Neste ponto, a planilha seM mostrada 
na tela, tendo como mes e assunto base 
OS de indice 1. A pergunta MODO? apa- 
receri, entao, no canto superior esquer- 
do da tela. Observa^ao: toda referenda 
a mes e/ou assunto sera feita atrav^s de 
seus indices. Por exemplo: Janeiro = 1, 
novembro =^ 11 etc. 

sistema espera agora, como um co- 
mando, o nome de um modo de opera- 
930 ou o comando de interrup9ao (FIM) 
que aborta a execu9ao. Os modes de 
opera^ao sao assim denominados: A, B, 
C, D, E ou F, sem qualquer complemen- 
to. 

Vejamos agora como funcionam os 
modos: 

A - Pede um mes e um assunto base e 
mostra a nova planilha, voltando d ques- 
tao MODO?. 

B - Pula para dentro da primeira janela 
da planilha. Nesse ponto, o modo apre- 
sentara um cursor intermitente e espera- 
r^ um dos seis comandos: 

#< RETURN > - avanfa um espago, 
retoma o cursor normal e esta pronto 
para alterarmos o conteiido da janela, a 
menos que nao exista assunto corres- 
pondente; 

• I — sobe uma janela ; 

• 2 — avan9a a janela a direita; 

• 3 — desce uma janela; 

•4 — avanfa uma janela a esquerda; 

• 5 - retorna ao programa principal. 
C - Pede um mes base (< RETURN > 
= primeiro mes do trimestre), um mes 
fun ( < RETURN > ^ mes base), um as- 
sunto base ( < RETURN > =- primeiro 
assunto do trimestre) e um assunto fim 
( < RETURN > = assunto base) e calcula 
a soma dos elementos desse setor. to- 
tal 6 mostrado no canto superior esquer- 
do. Apertamos, entao, qualquer tecla 
para retornarmos a rotina principal. 

D — Permite movimentarmos toda a pla- 
nilha como no modo B, ou seja, com os 
mesmos comandos de 1 a 5, mostrando 
no canto superior esquerdo o sentido do 
ultimo deslocamento. 
E - Salva o conteudo da planilha em fi- 
ta. Por motivos 6bvios, e a rotina mais 
lenta do sistema, necessitando de Haces- 
sosaogravador. 

F — Permite, caso o numero de assuntos 
seja menor que 14, criar um campo para 
informafoes, parando no primeiro espa- 
90 disponivel na coluna. Para retornar 
ao programa principal basta digitar FIM. 
Agora e s6 encarar a listagem e dizer 
adeus ao caderno, a regua e i calculadora. 



K 



HeMcio C. R. Netto cursa o 59 perfodo de 
InformAtica na UFRJ, tendo cursos de FOR- 
TRAN. Pascal. ALGOL, Assembler e COBOL. 
Atualmente 4 estagiirio da Cromos Inform^ti- 
ca Ltda. 

Jotye L uiz Grivot Maia cursa o 5P perfodo de 
Engenharia na PUC/RJ. tendo cursos de FOR- 
TRAN e Pascal. 
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Lotus 1-2-3 



Quando Mitchell Kapor, entao cursando Mestrado de Psicologia, propos-se a desenvolver um 
software que iria revolucionar a microcomputagao, provavelmente muito poucas pessoas Ihe deram 
ouvidos. fato e que este rapaz desenvolveu, logo ap6s, o Visitrend/Plot e vendeu o software para a 
VisiCorp por um milhao de dolares. Com este dinheiro, ele fundou a sua empresa Lotus 
Development Corp. e partiu para o desenvolvimento do Lotus 1-2-3, sem sombra de duvida um 
produto revolucionarlo neste mercado. 

Assim como o VisiCalc, planiiha eletronica de primeira geragao, foi o responsavel pela explosao do 
microcomputador, favorecendo a expansao da linha Apple, atualmente as vendas dos micros de 
escritorio, representados pela linha IBM PC, estao certamente ancoradas nos aspectos de eficiencia 
e funcionalidade do Lotus 1-2-3. 



Carlos Mirio Gomes de A/me/da 



O Lotus 1-2-3 tomou-se o pa- 
drSo mundial de software 
para a linha de micros com- 
pativeis com o IBM PC, es- 
tando hi semanas em primeiro lugar na 
lista dos programas mais vendidos nos 
Estados Unidos. Como se nS^o bastasse, 
a maioria das empresas multinacionais e 
grandes grupos nacionais, sempre os 
mais atualizados, tern como poh'tica a 
ado^So de micros compatiVeis com o 
IBM PC e,especificamente, do 1-2-3. 

Mas afmal, o que e o 1-2-3? Resumi- 
damente, din'amos que e' a mais podero- 
sa planiiha eletronica do mercado, d 
qua] foram integrados os recursos de 
banco de dados e gr^ficos, num ambien- 
te em que os conceitos de 'user friendly' 
e 'menu driven' sSo amplamente utiliza- 
dos. 

O "liser friendly' provem do fato de 
que este software ^ de uso e aprendiza- 
do muito mais fdci! do que outros soft- 
wares tradicionais;e o 'menu driven' jus- 
tifica-se pelo programa ser inteiramente 
guiado por menus, nSo havendo necessi- 
dade de se decorar comandos como co- 
mumente ocorre em certas linguagens. 

Amplamente utilizado em drversas 
Sreas da empresa, o 1-2-3 possui certas 
aplicaijOes ti'picas como fluxo de caixa; 
qualquer tipo de previsSo ou planeja- 
mento; or9amento interne da empresa; 
or^amentos para clientes; anilises de in- 



vestimento; controle de custos; contas 
bancdrias; contas a pagar e receber; pro- 
je^Oes e anilises de tendencias etc. Os 
unicos bmites a serem observados sSo a 
mem6ria do equipamento (640 Kb) e o 
mimero de registros do 1-2-3 (2048). 

A parte o 123, quando voce estiver 
lendo este artigo a empresa norte-ameri- 
cana Lotus Development Corp. ji teii 
lan9ado o Symphony, uma especie de 
continua^So do 1-2-3, que utilizari os 
arquivos de seu antecessor e ter^ identi- 
co modo de operar. Como vantagens 
adicionais, o Symphony, alem de con- 
tar com um banco de dados mais pode- 
roso, terd inclui'do processamento de 
texto em ingles e fun95es de comunica- 
9§o. A linica desvantagem ser^ uma 
maior complexidade do programa, o que 
talvez torne recomenddvel que o apren- 
dizado assuma, como primeira etapa, a 
implanta9So na empresa do 1 -2-3 . 

Antes, contudo, de detalharmos os 
comandos e fbn9Ses do Lotus 1-2-3, 
lembramos aos usudrios de micros da 
linha IBM PC (no Brasil representados 
pelo Nexus, da Scopus; PC 2001, da 
Microtec; Ego, da Softec e Dismac-PC) 
que uma biblioteca bisica de software 
em suas empresas fatalmente teria que 
compreender uma boa planiiha de c41- 
culos, um banco de dados robusto e um 
processador de texto, de preferencia in- 
cluindo OS caracteres de nossa lingua. 



PLANILHA ELETRONICA 

aspecto mais poderoso do 1 -2-3 6 
justamente a planUha eletronica, que 
constitui-se seu principal fator de popu- 
laridade. O 1-2-3 pode utilizar toda a 
membria disponivel de seu equipamen- 
to, e admite o uso de disco ri'gido para 
armazenamento externo. 

A linguagem interna do programa, 
chamada MACRO, toma a planiiha ain- 
da mais potente, permitindo guardar se- 
qiJencias de comandos que sSo executa- 
dos automaticamente quando demanda- 
dos ao sistema. Esta linguagem possui. 
entre outros, comandos do tipo IF- 
THEN, GOTO, sub-rotinas e menu de 
op95es. 

Outro recurso bem interessante para 
OS usutirios deste software sSo as janeias, 
que possibilitam a divisffo do vi'deo em 
duas ^reas distintas de traballio. Tal ar- 
tificio faCilita bastante no caso de pla- 
nilhas mais complexas, principalmente 
quando se quer fazer cdlculos interligan- 
do regiOes distantes do quadro. 

1-2-3 possui ainda todas as fun90es 
que OS usudrios de planilhas de primeira 
gera9So, como o Visicalc, gostariam de 
usufruir como largura de coluna varidvel 
individualmente; copiar e mover regiOes 
mostradas em vi'deo inverso; ponto de 



separa9So de milhares; percentual; pa- 
rentesis em numeros negatives e muitos 
outros. A capacidade das celulas se ex- 
pandirem nas celulas adjacentes tambe'm 
existe. 

Todas as opera90es dos menus pos- 
suem uma linha de explica96es "on-li- 
ne", e o 1-2-3 permite ainda a defini- 
9S0 de nomes para celulas, ou mesmo re- 
giOes ou grdficos, que possibilitam cil- 
culos do tipo MARGEM = VENDAS - 
CUSTOS. E bom lembrar que todas as 
fun90es do Visicalc estao presentes no 
1-2-3 (veja algumas fun95es listadas no 
quadro abaixo). Titulos e formata95es 
sofisticadas de impressSo tamb^m sSo 
possiveis, e dentre estes recursos ressal- 
tamos a impressSo com pagina9So auto- 
mdtica; impressSo de f6rmulas e impres- 
sSo automdtica da data do relat6rio. 



ALGUMAS FUNgOES 
DO LOTUS 1-2-3 



Matematicas : 

ABS , I NT , SQRT , LOG , EXP , A 
COS , AT^^M , MOD , RAND , SEN 

Logicas : 

FALSE , TRUE , IF , AND , OR , 
NOT,>,> = 

Financeiras : 

NPV,FV,PV,IRR (taxa in 

terna de retorno),PMT 
( payment ) 

Estatisticas : 

STD , VAR , AVG , SUM , COUNT , 
MIN,MAX 

Especiais : 

NA , ERR , CHOOSE , HLOOKUP , 
VLOOKUP 

Data : 

TODAY , DATE , DAY , MONTH , 
YEAR 



BANCO DE DADOS 

A priincipal vantagem neste caso e 
que OS registros do banco de dados sSo 
OS pr6prios dados da planiiha. 1-2-3 
aceita por planiiha ate 2047 registros 
Oinhas) e 256 campos (colunas). A uni- 
ca limita9So e a capacidade de mem6ria 
da m^quina: embora o pre'-requisito para 
a ultima versSo do Lotus seja 192 Kb. 
para um uso eficaz do 1-2-3 deve-se ter, 
pelo menos, 256 Kb. 

Algumas das fun90es do banco de da- 



LOTUS - 



Software e Consultoria Ltda 

Faturam«r>to Mansal 



700 



600 - 



500 - 



4O0 - 



« JOO - 



200 - 



100 



^1^ 



I 



I 



i 



'1 



'z^ 



'z^ 



'z^ 



'z^ 



/ \1 r/ v 



JAN FEV MAR ABR MAI J UN JUL 

MESES 



AGO SET OUT NOV DEZ 



V7\ RECEUA 



[yg DESPESA 



Um dos fatores decisivos para o sucesso de vendas que ohleve o J -2-3 foi o fato dele ler. aliado 
d sua poderosa planiiha, recursos grdficos indispensdveis para aplicagoes empresariais. 



lini 16 Chip 9 CcU 1143 



Nulti Cintm, InO 
Six Month Fomast 19M4 

JiAiurti, 1984 Silts in pndiettd tt te (in Iflis): $2,588 
IM average wflthly incNasi in salti Hill W; 8 

' ■ ■ ' ■" " •; $18,348 



Jan Feb NaKh Ql lets 
Sales $2,588 $2,788 Sm $8,Ul 
Co9s S1.375$l,4tiSl,S21 



'K PWCESSIHG: 



Start Sales Honthly Increase 
(in 188$) in '/.) 



(in 188s) 



Kay June 92 Tots 



Il:u^ 



C03S $1,682 $1,698 $1,78 
?rofit$l,547 Sl,711 $1,88 



lHeb-84 89:37(111 



O Symphony, proximo produto da Lotus Development Corp., Integra processador de texto. pla- 
niiha de cdlculo, banco de dados, grdficos e /undoes de comunica^do. Na folo, a tela apresenta- 
se dividida em uma janela no modo processador de texto. duas janeias grdficas e ires areas da 
planiiha. 



dos sSo: SORT(ordena9a'o), bastante ri- 
pida e feita na propria memoria. sem 
acesso a disco; pesquisa no banco de 
dados segundo variados criterios e ope- 
ra90es no banco de dados do tipo LO- 
CALIZAR, ELIMIN AR etc. 

Existem igualmente comandos para a 
confec9So autom^tica de tabelas (DATA/ 
TABLE), que permitem a an^ise de sen- 
sibilidade de resultados, segundo varia- 



90es de um ou mais parametros, alem da 
presen9a de poderosos recursos de esta- 
ti'stica de bancos de dados segundo cri- 
terios pre-estabelecidos (DSUM;DAVG; 
DSTD;DVARetc). 

GRAncos 

Os recursos do 1-2-3 permitem fazer 
gr^icos no vi'deo e na impressora com ^ 
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LOTUS 1-2-3 



OS pr6prios valores da planilha.Nosgrf- 
ficos, que podem ser do tipo barras, U- 
nhas ou setores, para citar os mais usa- 
dos, podem ser inclui'dos at^ seis series 
de dados, podendo uma s^rie center 
mais de 300 pontos. 

Nos grdficos do Lotus, os mais varia- 
dos tipos de legendas, titulos e cores, 
alem de recursos avan9ados como rota- 
9^0, vaiia^So de tamanho, locaUza9ffo 
na pdgina e tipos de letra sSo facilmente 
conseguidos. 

£ importante ressaltar que os gr^fi- 
cos do 1-2-3 podem ser impresses nas 
impressoras grdficas. em plotters e ate 
nas impressoras a cores que deveremos 
ter, em breve, no Brasil. 



Oltimos conselhos 

Caso voce i& possua ou vi adquirir o 
Lotus 1-2-3, primeiro passo ^ promo- 
ver um treinamento especializado, para 
que OS usuarios nSo tenham que passar 
pelo demorado aprendizado auto-didata, 
atraves dos complicados manuais em in- 
gles e do tutorial que ensina os concei- 
tos bisicos. 

Caso, por motivos de orfamentos da 
empresa, a linha IBM PC esteja fora de 
seus pianos, e voce pense em utilizar um 
micro da linha Apple, a melhor alter- 
nativa e o Multiplan, um software bem 
mais avan^ado que o Visicalc, pois In- 



tegra uma excelente planilha a um ban- 
co de dados razoivel. 

Finalmenle, aos que estSo agregando 
equipamentos da linha IBM PC a um 
grupo j4 instalado de micros Apple , lem- 
bramos que j^ existem no Brasil firmas 
que fazem a transferencia eletronica de 
arquivos do Apple (Visicalc ou Multi- 
plan) para o 1-2-3 no IBM PC. 



Carlos MArio Gomes de Almeida 4 diretor da 
empresa carioca Lotus Software eConsultoria, 
especializada em Consulton'a e Treinamento 
do Lotus 1-2-3 bem como no desenvolvimen- 
to de sistemas de processamento de texto. 



As planilhas eletronicas 



Oque sSo, afinal, as fifo faladas planilhas eletrdnicas? 
Imaginem uma folha dividida em linhas e cohinas, des- 
tas usuabnente utilizadas pelas empresaspam os controles e 
pianefamento economico-fitmnceiro. Caso esta folha esteja 
no video de um computador, em lugarde estar fisicamente 
na sua mesa, e Ihe permita fazer o mesmo trabalho que voce 
esld acostumado a fazer - com a diferenga de trocar o la- 
pis e a borracha pelo teclado e impressora de um microcom- 
putador -, isto e o que se chama planilha eletronica. 

Esta folha aceita que voce datilografe normalmente pala- 
vras e numeros, corrija-os sem qualquer problema, e recalcu- 
le todas as formulas que voce inicialmente possa ter infor- 
mado ao apertar uma unica lech, com somente fragoes 
de segundo de espera. 

Estas planilhas tomaram-se poderosos instrumentos de 
aumento de produtividade do trabalho - outrora magante e 
demorado - de desenvolvimento de andlises, controles e 
projegdes. 

Uma vez desenvolvido no computador um rascunho da 
planilha desejada, a obtengSo da versdo final e de variadas 
altemativas para o auxilio a tomada de decisSo toma-se 
uma tarefa bastante rdpida e fdcil. Basta que se altere um 
valor (a previsdo de inflagSo para um periodo, por exemplo) 
para que todo o modelo seja recalculado em segundos; e 
basta um comando de impressffo para se obter uma copia 
impressa desta altemativa. 

Assim, e natural que a chegada dos micros e suas plani- 
lhas eletrdnicas tenha permitido as empresas obter um incri- 
vel aumento da produtividade de seus fiinciondrios, efacili- 
tado em muito o processo de tomada de decisdo. O phneja- 
mento estrategico baseado em projegoes e simulagoes limi- 
ta-se agora ao trabalho de obtengdo dos dados historicos e 
definigdo dos criterios de andlise. 

PRINCIPAIS PLANILHAS 

As planilhas de maior aceitagSo possuem certos recursos 
bdsicos. Talvez o mais importante deles seja a livre entrada 
de dados e fdrmulas dentro da planilha em si, como se fos- 
se datilografia comum; portanto tente fugir das planilhas 
que forgam uma sai'da para um "modulo" de entrada de da- 
dos e fdrmulas. £" muito mais intuitivo uma entrada direta 



dos dados na cehila (cruzamento entre uma linha e uma co- 
luna) em que se esta posicionado. 

Outra caracten'stica bdsica que praticamente todas as 
planilhas possuem e a livre movimentagdo pelas cebilas, sen- 
do que, quando se encontra uma extremidade do video, o 
quadro se desloca para que se possa observar partes distan- 
tes da planilha, que logicamente nSo se limita ao tamanho 
do video. 

Outros recursos normalmente encontrados sSo: possibUi- 
dade de insergSo e eliminagao de linhas e colunas; copiar 
fdrmulas e paiavms de qualquer lugarpam outros eguardar 
OS modelos desenvolvidos no disquete do computador, para 
que, em outro instante, se possa recuperdAos e modificd- 
los, imprimindo outra ou ate a mesma versSo. A possibilida- 
de de variar o tamanho das colunas e tambem um minimo 
requerido. mas a capacidade de alterd-las individualmente e 
de extrema utilidade. Um outro recurso important issimo 
€ o de fazer ordenagoes (SORT) dos dados da planilha, em 
ordem crescente ou decrescente, numerica ou alfabetica. 

geraqAo de planilhas 

Se existiu um padrdo para planilhas eletrdnicas de pri- 
meira geragao, foi o Visicalc. Visicalc foi muito utiliza- 
do desde quando foi langado ltd uns cinco anos atrds, e, 
hoje em dia, se muitos ainda o utilizam e extritamente de- 
vido a limitagoes de equipamento oufalta de orientagdo. 

A ultima geragSo de planilhas e basicamente identificada 
pela sua integragdo com outros tipos de programas, que ou- 
trora eram somente utilizados independentemente. Esta 
integragdo significa que, em um unico programa, vocepode 
utilizar planilha eletronica e, direta e simultaneamente. uti- 
lizar OS seus dados para fazer ordenagoes e pesquisas como 
banco de dados e tambem fazer grdficos, por exemplo. 

Fode-se dizer que a evolugdo dos softwares passou a ser 
medida ndo mais em termos dos poderes isolados deum tipo 
de aplicagdo: agora a evolugdo e medida tambem em termos 
de integragdo. Quern provocou esta revohigdofoijustamente 
Lotus 1-2-3, que tomou o ktgar do Visicalc como padrdo 
de software, ndo sd por possuir a planilha eletrdnica mais 
poderosa do mercado (ou pelos seus outros mddulos que, 
isoladamente, sdo dtimos), mas por conseguir integrd-los to- 
dos de uma maneira ati aff}m imbativel. ^ 




^H 



SID, a empresa do ano em Informatica. 
Na forma e na essencia. 

Na forma, pelo desenvolvimento de tecnologia nacional psdrao snternacio- 
nal. Pefa valohzacao e aprimoramento dos seus profissionais, Por produzEr quali- 
dade em constante evolucao. Pela lideranca e melhor desempenho do setor. 

Na essencia, pela filosofia empresarial voltada para o mercado brasileiro de 
Informatica, suas necesstdades de hoje e do futuro, sua urgencia por novas solu- 
coes e melhores equipamentos. 

Aos clientes, fomecedores e funcionirios respons^veis por mais esta vit6ha, 
reconhecinnento da SfD, Empresa do Ano em Informatica. 
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HELMS Jr., H. L., Guia de Lin- 
guagens de Computadores, Edi- 
tora Campus. 

H A maror parte dos livrosque 
abordam linguagens de compu- 
tacao o fazem examinando uma 
de cada vez. Acontece que por 
vezes o profissional ve-se diante 
de sistemas escritos numa lin- 
guagem com a qual ele nao est^ 
familiarizado, e torna-se proble- 
malico encontrar, na volumosa 
literatua desta ^rea, conceitos 
b^sicos sobre diferenies lingua- 
gens de forma r^pida e pritJca. 

Este livro, que nao pretende 
funcionar como guia de progra- 
macao em diferentes linguagens. 
visa justamente atender aqueles 
que desejam conhecer as dife- 
ren^as entre Cobol e Fortran, ou 
que, habituados a programar em 
Basic, gostariamde saber o que 6 
Pascal, por exemplo. 

Em sete capi'tulos, todos 
Gstruturados de forma padroni- 
zada, de modo a distingijir clara- 
mente as caracten'sticas especi'f i- 
cas de cada linguagem. sao abor- 
dadas Algol: Basic; Cobol; For- 
tran; Lisp; Pascal e PL/1, No ul- 
timo capi'tulo, 6 fornecido um 
pequeno dicionario de palavras- 
chaves que facilita demais no ca- 
so de consulias superficiais. 



SHIMIZU, T., BASIC, Editora 
Atlas. 

H Mais um tftulo sobre BASIC 
dentre os inumeros que inun 
dam mercado editorial, este 
traz a assinatura de um autor 
iradicional da Area, jd responsa- 
vel por livros de Programagao 
Cobol e Conceitos B^sicos de 
Processamento de Dados, ambos 
da mesma editora. 

I nicialmenie sao apresenta- 
das def inicoes de termos t6cnicos 

pr6prios do BASIC, al^m dos 
comandos bdsicos. Nos capi'tu- 



los seguintes ~ ao todo sao 18. 
complementados com tresapen- 
dices num total de 204 p^inas 
- sao abordados comandos mais 
avan^ados; exemplos de aplica- 
Qoes comerciais e cientfficas e 
exercfcios de fixa^ao {cada capf- 
tulo possui um bloco de exerci'- 
cios dos conceitos estudados), o 
que evidencia preocupa(:30 didA- 
tica. 

Um capitulo especi'fico foi 
desTinado a programa^ao de en- 
sino com o microcomputador, 
discutindo sua aplic3i;ao em 
escolas e no treinamento profis- 
sional. 




PEREIRA FILHO, J.C-.ffPG //, 
Editora Campus. 

H RPG II i uma antiga e popu- 
lar linguagem de programagao, 
freqiJenTemenie uiilizada em 
computadores de variados por- 
tes para aplica^oes administra- 
tivas. 

Gracas a sua I6gica pr6-defi- 
nida. o cicio b^sico, o RPG II 
torna f^cil a tarefa de progra- 
mar, principalmente quando 6 
aplicado com o fim especi'fico 
para o qual foi criado: a emissao 
de relat6rios. 

Esta motivacao levou o autor 
a descrever as l^cnicas b^srcas 
necess^rias ^ utiliz3c:ao de RPG 
II neste livro. constitui'do de 
oito capi'tulos onde o assunto 4 
tratado de forma gradual e deta- 
Ifiada, o que proporciona um 
ni'vel de aprendizado que permi- 
te escrever programas nesta lin- 
guagem. 

Todos OS capi'tulos sao ilus- 
trados com exemplos, mostran- 
do OS dados que entram, seus re- 
gistros e os relatbrios emitidos, 
al6m da listagem de compilafao 
e de coment^rios sobre as solu- 
?6es adotadas. Ao final de cada 
capitulo encontram-se exercf- 
cios priticos. tirades do cotidia- 
no do processamento de dados. 



TATCHELL, J. « BENNETT. B.. 

Introdufao ao microcompu- 
tador. Editora Lut6cia. 

H Dedlcado. segundo pronun- 
ciamento da editora Lut6cia, a 
"meninos e meninas de 8 a 16 
anos". este livro Integra uma s^- 
rie com a qual os editores pre- 
tendem ganhar uma fatia do ren- 
tdvel mercado juvenil da infor- 
matica. 

Todo construr'do a base de 
quadrinhos e pequenas legendas. 
o livro apresenta uma diagrama- 
gao algo confusa e a ocorrencia 
de defini^oes simplistas e con- 
ceitos por vezes impreciosos, o 
que torna question^vel sua efi- 
ciencia em relagao ao leitor-alvo: 
para o publico infanlil, ele peca 
por abordar (geralmente, em 
duas p^ginas) temas complexes 
como o chip, redes locals e con- 
irole de processes, e para os 
adolescentes este tipo de litera- 
tura 6 inconcebilsel, visto que os 
jovens na faixa de 1 5 anos pos- 
suem condigoes de voos bem 
mais altos. 

Alguns dos temas tratados 
nos cap I't ulos deste I ivro sao : 
introducao; o micro; programa- 



pao; teclado; como executar e 
guardar programas; gr^ficos e 
animapdes; musica e efeitos so- 
noros; o micro por dentro; uma 
pastiiha por dentro; hist6ria do 
microcomputador; redes de 
computadores; controle com 
micros; acess6rios para o micro 
e como escolher seu micro. 

Na mesma linha, a Lut^cia 
lan^ou ainda outros dois ti'tulos 
da s^rie. O Guia pr^xico de pro- 
gramacao em BASIC, de Brian 
Smith, que trata em seus capi'tu- 
los de assuntos como o funcio- 
namento do computador; dando 
instrucoes ao computador; pri- 
meiros passos em BASIC; como 
utilizar o INPUT; o que fazer 
com o PRINT, desenhos; jogos; 
loops; subrotinas; graficos e sfm- 
bolos e dicas de programacao. 
entre outros temas. 

O terceiro livro traz progra- 
mas de jogos especiais. sendo de 
autoria de Daniel Isaaman e 
Jenny Tyler. Neste, encontram- 
se listagens de programas, ji 
adaptados aos equipamentos na- 
cionais (linhas Sinclair. TRS e 
Apple). al6m de sugesioes e di- 
cas de programapao de jogos. 
Todos OS livros sao tradu^oes. 
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GARANTA 
SUA MS 

TODO MES ! 



Se voc€ deseja assinar MICRO SISTEMAS, preencha o 
cupom abaixo (ou uma xerox, caso voce nao queira 
cortar a revista): 



empresa. 



prof iss^D /cargo. 



enderego para remessa 

cidade cep . 



.estado. 



Assinatura anuai 

□ fwlicro Sistemas Cr$ 30.000,00 



Preencha um cheque nominal A ATI Editora Ltda e envie 

para: 

Av. Presidente Wilson, IGB/grupo 1210, Centro, Rio de 

Janeiro, RJ.CEP 20030- tels.: (021 1 262-5259- 

R. bliveira Dias. 153. Jardim Paulista. S?o Paulo, SP. CEP 

01433 - tels.: (Oil) 853-7758, 881-5668 8 853-3800. 

Seu recibo-seri envtado pelo correio. 
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A Microdigital apresenta 



o novo TK2000 cohx 



Que ta/ um mk^o de aifo performance, que iraz as principais carocferkfkas 

dos equipamentos mais sofistkados e que nao exige de voce um grande 

invesfimenfo iniciat^E que fo/ um mkro que cresce de acordo com os suas 

necessidades? Sao e^fas as voniogens que voo fazer do novissimo 

7K 2000 Co/or um dos woiores sucessos rto sefof. 

Ve/o; e/e fem 64K de memorio RAM e 16K de memofia ROM, fecfodo pro(hs'(onai 

tipo maquina de escrever^ recebe dlskeffe e impressara com infer^oce j6 contido, 

tfabaiha em cores, oferece alto fesotu<;ao gratica e som. 

Peqa uma demonstra<;do, Nunco tanto fot /he ahreddo por tao pouco. 

Gfonde quantidade de soffware disponivel (entre eiest diversos aplicativos 

comerciais e jogos a cores de aita resoiu<;6o grafica). 

Ele tern tudo que um 
micro deve ter.Mmos oprego. 

Cvi'o fi<tiwi S40SS CefOiOOO- Sd« Paul6 ■ SP Itfwn N" 1 F f 37.00S ■ Mrdt BH 

A vtnsiv '>DF tool ctffiif (f^ j'Qmo. Iggoi eiprTrcrJuadci] dr tntayiidmiO-itiM * Qrtintiti HI Q-gairlttl. 

St voci naa wiorttar tsit tqvipomtnf o no lucr t'daidt iigvt pvrii {Of}} J9W '25i-fi^fl3. 




Ptograrrwf AdminHiTrfllrvOl, CDinp»tfuH>i cam CP/M. T^SDOS HI I 



tnFOT^mfi'na^ s.n. 



Av. do Comorns, 665G Loja: 19 CEP 30000 



Ponha Servk^ CIrandao da Embratel na i^ 



O Modem UFII275 VTX da Parks i a 
maneua majs simpts e r^da de voce ligar 
o seu microcomputador ao ServJQO CiiandiLo 
e ter ao seu aicajice as maJs diveirsas 
uiforma^oes de interesse dom&tico, 
empresanal ? piDfTssionaJ. E wxvia^ leri 
acesso a servi^ complonenutres como 
idemensagens por cotmpuiadon quadit^ de 
avisos, diret6rios dc servifos, (adasuos 
de usuiricfi c outros. 



Basta uma Unha tdeBnica cotnum para 
completar essa liga^a 

O Mod<sn UP-1275 VTX reccbe sinais an 
]200bpsetransmitea 1 200 ou 75 bps. ^um 
apaidho de pequenas dimensdes (15 x 25 cm), 
peso reduzido e de f^ in^talagao. 

Receba o Servi^o CirandJiO em suacasa, 
onpresan comuhdrio on «scrit6rio. 

O Modem UIii275 VTX da Parks 
ddoacessa 
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O Modem UP-1275 VTX completa a ligacao com seu micro- 
Parks Equipamentos Eletrdnicos Ltda. 



PARKS 



luUv tklo MiirfUiDfuc . IVw Kill I Uh- ^'■2: * DnulB - lT<nr LJIAIi I'^I- \t:\ ■ Wiitvniu. - lnhc KU^^I ^^-U^ ■ CUfipd-Otinde- ^nvdtA^i 3i1-!))l 
• ] kiriiDftpolvi ■ lonci WC| ;:■ I 'J." ■ <Hijhi liia* iWiiii t;;|.WSj • L trrllndii • Nn* mUl ;U-4*m * SsltHkir - lone HVl I i**!'** 
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CURSOSDEAPERFEPAMENTD 



MAIS SUCESSO IVVRA VOCE! 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc€ o mats moderno ensino 

t^cnico programado e desenvolvido no Pafs. 



CURSO D£ ELCTRaiSirCA OfGIUU 
£ AUCROFfXXlSSAOORES 



Sao mais de 140 aposnias com mformafSes compleias e sempre 
aiualizadas Tudo sobfe os mais revolucionirio CHIPS E voce 
recebe. alem de uma solida forma^do teorica, KITS elabo'ddos 
para o seu desenvolvimento prSlico. Garanta agora o seu f uluro 
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CEOM-20 KIT 
de Ferramentas. 
CEDM 78 KIT 
Fonte de Ahmenta^lo 
5v/lA. CEDM-35 KIT 
Placa Experimental 
CEOM-74 KIT 
de Componentes. 
CEDM 80 

MtCROCOMPUTADOR 
Z80 ASSEMBLER. 




CURSODE 
PRCXSRAMACAO EM BASIC 



Este CURSO. especiatmente programado. oferece os 
fundamenios de Linguagem de Programa^ffo que dom.na o universo 
dos microcompuladores. Dinimico e abrangente. ensma desde o BASIC 
b^sico ate o BASIC mais avan^ado. rnclui'ndo nocoes b&icas sobre 
Manjpulagao de Arqurvos, T^cmcas de Programaijao, Sistemas de 
Processamento de Dados, Teleprocessamento, Mulnprogramacao e 
Tecnicas em Linguagem de Maquina, que proporcionam um grande 
conhecimenio em loda a area de Processamenio de Dados 






KIT CEDM 280 

BASIC Cieniifico. 

KIT CEDM Z80 

BASIC Simples. 

Gsbsrito de Fluxograma 

E 4. KIT CEDM SOFTWARE 

Fitas Cassele com Proqrsmss. 



CURSO DE 



M^todos novos e in^ditos de ensino garaniem um aprendizado 
praiico muito melhor Em cada nova ligSo, apostilas ilustradas 
ensinam ludo sobre Amplif icadores, Caixas Acusucas. Equalizadores. 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fiias, Capsulas. 
e Fonocaptadores. Microfones. Sononzacao, Instrumeniacao de Medidas 
em Audio. T^cnicas de Gravacao e tamb^m de ReparagSo em Audio 










CEDMl KITde Ferramentas. CEDM-2 - KIT Fonte de Ahmentac^o 
+ 15-15/lA. CEDM3 KIT Placa Experimental 
CEDM-4 KIT de Componentes. CEDM-5 ■ KIT Pre-amplificador 
Esl6rBo. CEDM-6 KIT Amplificador Esteteo 40w. 



Voce mesmo pode desenvolver um ritmo prdprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado ficil. E 
para esclarecer qualquer dCivlda, o CEDM coloca d sua disposi<;do uma 
equipe de professores sempre muito bem acessorada. Al^m disso, vocd 
recebe KITS preparados para os seus exercfcios prSticos. 

Agil, moderno e perfeitamente adequado h nossa realidade, os CUR- 
SOS CEDM per correspondencia garantem condlcOes Ideais para o seu 
aperfeicoamentc profissional. 



IGfiATISi 



VocS tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 

mesmo no Correio o cupom CEDM. 

Em poucos dias vocA recebe nossoi catilogos de apresenta^io. 
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I t M^n Avenida S«o Paulo, 718 - Fons (0432) 23-9674. 
^&L^i I CAIXA POSTAL 1642 - CEP 86100 ■ Londrina - PR 
CURSO DE APERFEiqOAMENTO POR CORRESPONDENCIA 

Soliclto o mais rApido poss(vel informac:des sem comprCHnisso sobre o 

CURSO de 

Nome 

Rua 

Cidade 

Bairro CEP 

MS 



HARDWARE 



• Vendo conjunto de HP 85A com- 
pleto, com impressora externa e 
interfaces. Prefo 464 ORTN Iza- 
bel Fone (Oil) 282-6356 - S. 
Paulo. 



[ROCO 



CURSOS 




VENDO 



SOFTWARE 



• Programas p/Apple: aplicativos, 
utilitdrJos, com pi I adores, lingua- 
gens e jogos. Tel.: (021)239-0449, 
Stela. 

• v. 17 prog, por 15 mil, c/sint. 
de voz, bugertime, zaxxon, etc., 
c/Alcides Zina, R. Helena D. Ne- 
me nP 222/11, S. J. Campos - 
1 2200 - SP. 

• Programas TK 82 troco d noite 
390-8323 Carlos. 



• Softwares para HP 85-87, Apple e 
TRS80:CONTROLEDE APLICA- 
qOES EM INVESTIMENTOS de 
agoes. ouro, d6lar e boi- Por meio 
dos grSficos: Ponto Figura. Mfni- 
mo. Maximo e Fechamento da 
Bolsa.PACOTE DE TDPOGRAFIA 
constando de 7 conjunlos de roti- 
nas. Micro-Rei Inform^trca — Rua 
Pinheiros, 812, Fone (Oil) 881- 
0022 -S. Paulo. 



• Programas Apple em discos te- 
nho muitos para trocar - Cecilio 
Berndsen SQN X7, Bloco H, apto. 
511 CEP: 70746 BrasfliaD.F. 



D I VERSOS 

• Vendo livros e jogos para TK 82 
pede catSlogo Jos^ M. Leite Rua 
Prud. Morais, 547 Batatais - SP. 



• O NETC - Nucloo de Ensinode 
Tecnologia e Ciencia ministra re- 
gularmente. em sua sede e em em- 
presas de ouiros estados, os cursos 
de: Eletronica Digital I e II; Hard- 
ware e Perif^ricos dos Microcom- 
putadores 2-80, Z-8000, 6800. 
68000, 80, 85. 8086, 6502; Bit- 
Sliced; Amplificadores Operacio- 
nais. Hardware e Softv^are de Te- 
leprocessamento; Interfaces A/D e 
D/A; Fibras Oticas, e outros mais. 
Desenvolve inclusive Programas de 
Treinamento Profissional na Srea 
de Hardware e Software que aten- 
dam em especffico a empresas in- 
teressadas, Informapoes e Pedido 
de Cat^logos de Cursos: Rua Al- 
varo Alvim nP 37 — 2P andar — 
Fone: 1021) 220-1989 - Ceniro 
- CEP: 20031 - Rio de Janeiro - 
RJ. 
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CORREgAO i 


32 


72, na [istagem Balalha Naval, ocoirerajn falhas em quatro linhas 
da listagem. rat;a as devidai: corre^ocs nas seguintes imhas: 
linha 2790 
Imha 3100 
Imlia 5340 
Imha 5520 


2750 PRINT PT 1S.1;"0K... AGOPh 
E" fi SUP UEZ, 

3100 PRINT hT 15. 1; "MONTE 4 SUBM 
hRINuS:S1 

5340 PRINT hT I i N i , C N i +15.; " " 

5S20 !_ET M$ iKN) ,0 lN) J =■■ " 
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41), no programa Andlise de circuiros eletricos. apos o entreli'tulo 
Como usar o programa, a primeira frase deve ser 


Escolha pnmeiramente o no de referenda... 


4 I . pnmcira coluna. no finaJ do segundo paragrafo allerc para 


... programa pode ser usado com doi'; conjunlos dc unidadcs: 
pnmeiro em ohms, amperes e volts; e o segundo em quilo- 
homs. microamperes e volts. 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiado! Equipamentos, Software, Cursos, Clubes e Diversos: 
voce 6 quern decide o que, quando e como anunciar nos 
Classif icados MS. Quanto voc^ leri que psgar? Isso tamMm A 
decisfio sua. Preste ateri^io: 

• cada linha de texto (30 toques, irtcluindo os etpagos em br?nco) 
custa Cr$ 2.000,00; 

• linhas rncompletas serSo cobradai como inteirat; 



* o pr6prio snunciante deve checsr o valor de seu anCincto com o 
n6mero de linhas que eie contivar; 

• o anOncio deve vir acompanhado de um cheque nominal d ATI 
Editors Ltda; 

Os textos devem ler datilografados ou escritot em letra de forms, 
obedecendo as 30 batidas por linha. Veja um exempio: 
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Maiores informa^&es pelos telefones: (021) 262-5259 - RJ ou (011) 853-7758 - SP. 




m.S. SeruicDS 




PARA PROBLQUAS COM MATERIAL DE 



M:A- 



DeSENHO ■ PINTURA ■ ENGENHAftlA 
PAPELARIA . ESCWniRIO MAQUINAS PI 
ESCniTlllRIO E SUPRIMENTOS EM GEHAL 
O BEL-BAZAR 

ELETRONICO 

onda voct AINDA •nconln ptvco 
■ quaUdacto d» ANTIQAMENTEl 

AV. ALMIHANTE BARROSQ 81 - U X" 

TEL: 262-9229 - 262-9068 - 240*410 - 221-8282 

RIO DE JANEIRO ■ CASTELO 



PHA^Bn 



nilcre~«l«irAntca 



Uma Empresa a 

Servlpo da 
Micro Eletronica 



Assistencia 

Tecnica 
Autorizada 

• PROL6GICA 
UNITRON 

ELciBnA 



Baa St.* Hlta Dvr4o, 3S4 

Funeien4rioa 

T«l.: (Oai) 8a»^144 

B«lo BorteoQt* — MO. 



OMPONENT^ 

' eletrOnicaltda 



SEU MICRO EM 

BOA COMPANHIA 

ASSISTENCIA TECNICA 

AUTORIZADA: 



PROLOGICA 
UNITRON 
DIGITUS 
■ ELEBRA 



(031) 201-5156 

Rua Espinto Santo. 1868 

Beto Honzonte — M.G, 




ROBOTIC 



Microcomputadores de 
todas as marcas 
novos e usados 

Suprimento 

Pegas e partes para 
microcomputadores 

Jogos eletrdnjcos 



RUA BARATA RIBEIRO. 370 

- Loja 105 APART HOTEL - 

COPACABANA - RIO - RJ 

TEL.: (021) 257-6396 



^ /MICROLdGICK 

\^^ Engenharia de Sistsmat Ltda. ConsuttorJa de Hardware 



ASSISTtNCIA TfCNICA 
A MICROCOMPUTADORES: 

Apple. TRS 80. IBM PC. ZX 81. TK 82, 
TK 85. CP 200. CP 500. Unilron. 
Impressoras e demais perif^ricos 

Jogos de xadrez e outros compaiiveis. 

Compramos s«u micro 
funcionando ou nBo. 




VENDEMOS 
INTERFACES 

DIVERSAS P/ 
LINHA APPLE. 



Faze mot transformaoAes 
■ alinham«nto de Drh/ert. 



video k-7 (vhs) 

transcodificaqAo 

temos diskette 
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^ mcnaeauipo 


HflRDLUflRE^^ 

ASSISTINCIA TtCNICA 

TODOS OS NACtONAIS 

E IMPORTADOS 

■ « • 

ALINHAMENTO 

DE DRIVES 

• ■ ( 

transcodifica(;ao 

( ■ ■ 

PROJETOS 

R. das Marrecas, 39 Sala 402 
Rio de Janeiro — RJ 
Tels. (021) 220-5403 


COMPUTADORES 
E PERIFERICOS 

UNITRON 
MICROCRAFT 

VENDAS 

LEASING 

PROGRAMAS 
CURSOS 

ASSISTENCIA 
TECNICA 


Av. Mai. CiiTura, 271 s/loia 101 
Tel: (021) 262-SI»i — R.). 



SiKC^ai/t^^QCG 



O lugar compativel 

com voce e seu 

micro. 



— Micros 

— Acessorios 
— Software 

— Livros 
— Revistas 



Rua Dias da Cru/, 21') — S 804 

Rio de Janeiro — R| 
BIP — 24b-4180 — tod. ixHi 



Av. Presidente Vargas. 542/1912 - Tel.: 263-9925 



SFEETIfnS 

CENTRO DE PESQUISAS, 
ESTUDOS E ENSINO 
TECNOLOGICO E DE 
INFORM ATIC A DE MINAS 
GERMS LTDA. 



Ja estao abertas as 
inscrigoes para 
o curso de Analises 
de Sistema, com 
estagio garantido 
para todos os alunos 
em nosso CRD 



Rua Tamoios n°. 462/911 

Rua da Bahia n°. 504 ■ 4". andar 

B. Horizonte M Gerais 



MICROCITT 



MICROS, 

PERIFERICOS, 

SUPRIMENTOS, 

SOFTWARE, 

MANUTENgAO, 

CURSOS E 

LITERATURA. 

EFICIENCIA E 
CONFIABIUDADE 

A ESSENCIA DO 
NOSSO TRABALHO 



R. Paraiba, 1256Savassi 
Tel.: (031) 227-4291 
Belo Horizonte — M.G. 



DATAMICRO 



VENDA DE 
MICROCOMPUTADORES 
TK 83. 85, & 2000 COLOR 

CP 300, 500 & 600 
COLOR 64 (EXT. BASIC) 

SUPRMCmOS 

Disquete. fitas, form, continuo 

CONSULTORU DE SISTEUAS 

Oiagnostico e epoio a decisao 



CURSOS E TREINAMENTO 

Introdu^o aos microcompuladores 

Linguagem Basic 

Aplicaoao dos micros 

na Engenharia 

Microcomputadores para criancas 

INSCRIQ6ES ABERTAS 
Livros e revistas especializados 



Vise, de Pifaja, 547 Sobreloia 211 

Cep. 22.410 Ipanema Rio RJ 

TEL (0211511-0395 

DESPACHAMOS PARA 

TOOO O BRASIL 
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Descubra a senha 



A melhor forma de achar uma se- 
nha mestra desconhecida 6 mudai a 
senha para outra conhecida. Como? 
Simples, siga estas etapas e comprove : 



1 — Coloque no drive urn disquete 
com senha conhecida (SENHA). 

2 - Digite PROT : (PW) < ENTER > . 
3-0 micro perguntar^ "SENHA 
MESTRA?" 

4 - Digite SENHA < ENTER > . 
5-0 computador fard outra pergun- 
ta: "NOVA SENHA MESTRA?". 



6 - Nao responda ainda. 

7 - Retire o disquete do drive e co- 
loque disquete em que a senha i 
desconhecida. 

8 — Responda agora ao computador, 
digitando: SENHA < ENTER > . 

Art Morato - MG 



Linha SINCLAIR 



Contando bytes 



Coloque esta dicano fmal 
de seus programas e saiba, a 
qualquer momento, o total 
de memoria ocupada: 



9997 LET BYTES=PEEK 163 
96+256'PEEK 16397- 
16509 

9998 PRINT "ESTE PROGBA 
MA OCUPA" ; 

9999 PRINT BYTES-115;" 



E se no programa houver 
varidveis dimensionadas, pa- 
ra incluMas na contagen> i 
s6 trocar a linha 9997 para: 



9997 LET BYTES=PEEK 16 
404+256*PEEK 1640 
5-16384 



Lufs Carlos de Almeida Serpa — RJ 








Sa voc6 tern pequenas rotinas e programas utilitdrios 
realmente Oteis tomando poeira em seus disquetes ou frtas 
cassetes, antecipe-se aos piratas e trate de divulgd-los. En- 
vie-os para a REDAQAO DE MICRO SISTEMAS -SEQAO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centre, 
Rio de Janeiro, RJ, CEP 20030. Nao se esque^a de dizer 
para qual equipamento foram desenvotvidos. Desta forma, 
sua descoberta poderd ser jjtil para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas f itas e dis* 
quetes... 



Esta sub-rotina em BASIC roda 
em computadores compatfveis com 
as linhas TRS-80, PC-IBM e 1-7000 
(da Itautec), sendo que foi original- 
mente feita em um equipamento Ne- 
xus, da Scopus. Simples, mas ijtil, es- 
ta dica deve ser colocada, em caso de 
programas longos, logo no infdo, pois 
BASIC procura sub-rotinas a partir 
da linha inicial, ou seja, de cima para 
baixo no programa. 



Para usi-la, deflna primeiro a varii- 
vel de entrada igual ao valor a impri- 
mir, depois desvie o programa para 
esta sub-rotina e comande a impres- 
sSo da variavel de safda. Esta variivel 
teri sempre um comprimento fixo e, 
dentro dela, as casas vazias serao 
preenchidas com brancos. Caso se 
queira reduzir o seu tamanho , pode- 
se faze-lo, antes da impressao, usando 
paraissooscomandosCR$-RIGHT$ 
(sendo que CRS refere-se ao tama- 



Linha GERAL 



Itnprimindo cruzeiros 

nho desejado), mas € preciso ter cui- 
dado para nao truncar o numero. 

fi interessante observar ainda algu- 
mas caracter{sticas desta sub-rotina: 
o conteudo da variivel original nSo € 
destruido; o anedondamento e a no- 
tafao norma] dos mimeros sSo man- 
tidos, sendo que os negativos precedi- 



dos do sinal "-";e se o programa ge- 
rar somente mimeros positives, as 
quatro ultimas linhas desta dica nSo 
serSo executadas, podendo-se, por- 
tanto,eliinini-las. 



Evaldo Mendas — DF 



10000 REM ROTINA PARA IMPRESSAO EM FORMATO CRUZEIRO SEM DECIMAIS 
IDOIO REM DIMENSAO MAXIMA DE ENTRADA = 999.999. 999 . 999. 999 OU 14 

INTEIROS + DECIMAIS 
10020 REM yARIAWEL DE ENTRADAi CR»t UARIAyEL DE SAIDAJ CRI » 
LEN(CRI=20)»( 

10030 REM 

iOOlO IF CR»=0 THEN CR1=STRING5<20, " "MRETUHN 

10050 IF CRI*>0 THEN X=.5 ELSE X=-.5 

10070 CR*=STR*<FIX<CRt*+X)):CRl=STRING*(i6-LEN(CRt)," ")+MIO»<CRt 

,2,LEN(CR%)) 

10080 FOR X=3 TO 15 STEP A 

10090 IF HIDl(CRl,X,l)=" " THEN XX=32 ELSE XX=46 

10100 CR»=MI0t(CR4,l,X)+CHRl(XX)+MID»CCR*,X+l,LEN(CRl)-X):NEXT 

iOilO CR%=" "+CRI:IF CRN>0 THEN RETURN 

10120 FOR X=19 TO 1 STEP-i 

10130 IF HIDlCCRi,X,l)=" " THEN CRS=LEFTl(CRi,X-l )+"-"+RIGHT*{CR 

<6,20-X)sX=l 

10140 NEXT 

10150 RETURN 



Linha 
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Letreiro no micro 

Uma boa dica para ilustrarseus 
jogos e programas: fa9a um letrei- 
ro luminoso, do tipo usado emour- 
door, na tela do seu micro. Para 
facilitar, use o comando E do MI- 
CRO BUG para criar uma linha 
REM (nesta dica a linha REM tem 
34 caracteres), e o comando M, 
tamb^m do MICRO BUG, para in- 
serir os blocos em Assembler. A 
variavel A$, que seri defmida quan- 
do ^ programa comefar a rodar, 
cont^m a frase ou o texto que se 
quer colocar no letreiro. 

ROTINA EM ASSEMBLER 



1551- 2fi OC 4.0 23 01 21 16 CZ 

16530 F6 

ieS33 4.E 

16545 El 



ee 00 09 

;5 £5 C5 Oe IP 7E 23 
26 71 23 10 F9 "'7 CI 



ROTINA EM BASIC 



30 INPUT RS 

40 FOR rl=l TO 31 

50 PRINT fiT 3.M -'ll' , AT 12. H i 

60 I.E»T M 

65 5L,0M 

r-O FOK M = i TO LEN f^S 

33 PRINT qT 3,31, ■■»■■. fiT 12.31- 

90 PRINT iST 10,31.flfiH' 

100 PflND u;» 16514. 

110 NEXT M 

120 GOTO 70 



Ricardo Nunes Bandarra — RS 
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Ressuscite arquivos 

pessoal que leu o artigo "0 NEWDOS que nSo esti nos manuais" (MS 
nP 31, pag. 22) e ficou triste por nSo poder aplicar no TRSDOS/DOS 500 a 
t^cnica de recuperafSo de arquivos apagados pelo comando KILL, nSo preci- 
sa mais ficar desanimado: € possfvel modificar o TRSDOS/DOS 500, de for- 
ma que o comando KILL passe a zerar apenas o primeiro byte-tal como no 
NEWDOS- , em vez de zerar todos os bytes da entrada do diretdrio de um ar- 
quivo. Para isso, basta utilizar o seguinte PATCH : 
PATCH * 3 (ADD = 4FAE,FIND - 3600D554, CHG = CBA61808) 

Ap6s esta altera^o, € s6 seguir asinstnJ9oes do artigo de MS nP 31, p^. 
22, e (se espa^ do disco anteriormente colocado ainda nS^o tiver sido rea- 
locado), ressuscitar os arquivos. 

Roberto Quito da Sant'Anna - RJ 
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Duplique programas 

Coloque esta rotina em Unguagem de m^quina no topo da mem6ria 
(RAM-TOP) e duplique qualquer programa por mais fechado que esteja: pri- 
meiro, digite POKE 16388, 241 e depois de POKE 16389, 127 e NEW. Em 
seguida, entre com os seguintes codigos: 
32753 CD 44 03 CD 
32757 BE 02 2C 28 
32761 FACD 23 'OF 
32765 C3 FS/02 

e de NEW novamente. Para dupbcar o programa, digite FAST, RAND USR 
32753 e carregue o programa. Assim que o prc^rama estiver carregado, a te- 
la ficar^ escura. Coloque entSo a fita para gravar o programa, posicione o 
gravador para gravar, e aperte uma tecla qualquer do micro. Aguarde alguns 
segundos, pois o micro estari gravando o programa /ecAado. 

E para duplicar para high-speed, e s6 trocar a linha 32765 por: 32765 C3 
DS20. 

Uma ultima observa9ao: se o piog^ama fechado foi gravado pela instru93o 
SAVE, logo ap6s a gravaflo em duplicata ocorreri erro C/0. Mas nSo 6 pre- 
ciso se preocupar, pois esse problema nSo afetard o carregamento do pro- 
grama na fita. 



Ranato Moraira Prado — SP 
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Complementando o SCROLL 

Na Sefao Dicas de MS nP 25, pag. 126, foi publicada uma dica muito boa: 'SCROLL em Assembler". S6que nao fun- 
ciona exatamente como o SCROLL da maquina, pois nao posiciona o pr6ximo PRINT na ultima linha. Para tomar aque- 
le SCROLL uma simula9ao identica ao do equipamento, coloque este adendo: 



SCROLL ANTERIOR 



COMPLEMENTO 



16514 - 2A OC 40 E5 ii 21 00 19 Di 01 



01 no 15 CD r5 OB c? 

D6 02 ED BO 
Desta forma pode-se mudar a linha e a coluna da prdxima impressao, alterando-se os bytes: 

16520 coluna- Uar i a de G a 32 

16521 linha» Uar i a de a 23 

Um lembrete fin^: para inicializar a rotina, deve-se chamar RAND USR 16514. 

Alexandre R. Coidanich — RS M 



A sintaxe dos comandos ^ simples; os recursos muito poderosos. Com ele voce poder^ 
gerenciar seu banco de dados e desenvolver aplicativos personal izados 



O dBase 11, por etapas 



Filippo Galante 



Existem cinco op95es de acesso a re- 
gistros dlsponi'veis pelo dBase. Os co- 
mandos de acesso $3o: 
GOTO n - permite acessar diretamente o 
registro que se encontra/incamcwre gra- 
vado no lugar espedficado (n). Duas va- 
riantes deste comando pennitem acessar 
o primeiro registro (GO TOP) e o ultimo 
(GO BOTTOM). 

SKIP n - pennite pular o nfimero de 
registros espedficado (n) para frente ou 
para tr£[s. Este comando, quando execu- 
tado em arquivos indexados, 6 executa- 
do de fonna 16gica, ou seja, o pulo efe- 
tua-se obedecendo S ordem de chaves. 
LOCATE — pennite localizar em um ar- 
quivo um registro que contenha.em qual- 
quer campo, uma caracter^tica desejada. 
CONTINUE — este comando locaiiza o 
prdximo registro que contenha a carac- 
teri'stica seledonada pelo tiltimo coman- 
do LOCATE. 

FIND - pennite acessar diretamente o 
registro que contenha a chave informa- 
da. Outra importante caracterfstica do 
dBase, o FIND deve ser utilizado com 
arquivos previamente indexados segun- 
do a chave desejada, sendo a perfonnan- 
ce observada excelente (at6 dois segun- 
dos). 

dBase possibilita ainda a recupera- 
9I0 de chaves ou campos pardais, tor- 



. 30 TOP 




c DISPLAY NQhE 




^0^07 c.L&f:3.T0 


FPPINGG 


.. FIND '£:&:>-' 




. DI^F'Lfiv \Oi^r£ 




eew&f^:' EiEP.Nf-RD 


FIELD :; 



Exemplo de usd do comando FIND. Observe 
a utilizagao de campos pardais (BER). 



nando assim possfvel acessar um registro 
que contenha uma chave que se inida 
com determinada caracteristica . 

apresentac:ao dos registros 

Os dados podem ser apresentados, no 
vfdeo ou impressora, de tres formas dis- 
tintas: com uso de comandos interativos; 
com uso de um gerador de relatdrios in- 
temo ao dBase ou com a cria^So de pro- 
gramas especfficos. 

Interativamente, dois comandos po- 
dem ser utilizados: 

LIST — Usta todos os registros do arqui- 
vo, sem interrup9ao. 
DISPLAY - utilizado sem complemen- 



tos, apresenta um linico registro do ar- 
quivo (aquele que esta sendo acessado 
no momento). Com o uso do sufixo ALL, 
o comando DISPLAY apresenta todos 
OS registros do arquivo, parando de quin- 
ze em quinze, o que facilita a leitura no 
video. Ji mediante uso do sufixo 
NEXT n, s5o apresentados os prbximos 
n registros do arquivo. 

Estes dois comandos podem ser utili- 
zados seletivamente, apresentando so- 
mente os dados que obedefam a uma 
determinada caracterfstica, com o uso 
do sufixo FOR "condi9ao". No caso de 
nSo se desejar ver todos os campos dos 
registros, & possivel, com os comandos 
LIST e DISPLAY, a indica^So dos cam- 
pos desejados. 

A segunda forma de apresenta^ao do 
arquivo i atrai^s do gerador de re]at6- 
rios, acessado com o comando REPORT. 
Este comando permite o uso de relatb- 
rios pr^-definidos, ou ainda uma defini- 
fSo particular do relatdrio a ser impres- 
so, possibilitando especificar a largura e 
o tamanho da p^gina; cabe^alho do re- 
lat6rio; os totais desejados e os campos 
a serem impressos, com seus subtftulos 
e posi95es na pdgina. 

Os relat6rios assim definidos podem 
ser arquivados para uso posterior e, al6m 
disto, aceitam uso do sufixo FOR £ 



Se todos OS gerenciadores de 
arquivos surgidos no merca- 
do, sem duvida dBase II ^ 
um dos mais bem sucedidos. 
Comercializado nos EUA pela empresa 
Ashton-Tate e no Brasil pela Datal6gica 
Transnational, dBase foi desenvolvido 
para utilizafao sob os sistemas operado- 
nais CP/M ou MS-DOS, este ultimo para 
a Unha IBM-PC. 

sistema i composto por um progra- 
ma mestre (dBase) e por rotinas auxilia- 
res - chamadas pelo mestre quando ne- 
cess^as -, e sua principal vantagem i 
pdrmitir que grande parte das aplica9oes 
sejam desenvolvidas de forma interativa, 
sem haver necessidade de programa^So. 

INICIALIZAgAO 

primeiro passo para se garantir 
uma utiliza^io otimizada do dBase € a 
adequa9ao do banco de dados, mediante 
a derini9ao dos arquivos necessarios; e 
para isto o dBase possui comandos bas- 
tante simples de serem usados: 
CREATE - para criar arquivos. Define 
sua estrutura, fornecendo dados sobre 
quais as informa95es contidas (campos); 
o tamanho de cada campo e tipo de 
dados que serSo annazenados(numerico, 
caracter ou I6gico). 



no 



USE — (seguido do nome do arquivo). 
Para selecionar a base de dados a ser uti- 
lizada. 

DISPLAY STRUCTURE - paraapresen- 
tar a estrutura de dados (arquivos). 
MODIFY STRUCTURE - para modifi- 
car estrutuias (arquivos), criando novos 
campos ou alterando os jk existentes. 

Ap6s criadas as estruturas de dados, 
pode-se manipular as informa9des con- 
tidas nos arquivos que foram criados de 
maneira simples, atrav^s de comandos 
que apresentam os campos no vfdeo,jd 
formatados, ou seja, cada campo i apre- 
sentado com seu nome seguido de ":*', 
para indicar o infcio e fim do mesmo. 
Nesta etapa, os comandos utilizados sSo: 
AH*END — para criar novos registros no 
fim de um arquivo. 

EDIT - para editar (alterar) registros 
existentes. 

REPLACE — para alterar alguns campos 
de registros seletivamente, a partir de va- 
lores infonnados. 

INSERT - para inserir registros entre 
outrosji existentes. 

DELETE — permite apagar logicamente 
registros, ou seja, os registros que se de- 
seja apagar sSo marcados para futura su- 
pressSofisica no arquivo. 
RECALL — permite recuperar registros 
que foram marcados para supressao (apa- 



gados logicamente), desmarcando-os. 
PACK - retira fisicamente todos os re- 
gistros que estejam apagados logicamen- 
te. 

Quanto i ordem em que sao posido- 
nados os registros, originalmente estes 
irao encontrar-se na ordem em que fo- 
ram criados, mas esta situa9ao pode ser 
alterada de duas maneiras: tanto logica 
quanto fisicamente. comando SORT 
6 utilizado para oidemi fisicamente um 
arquivo, segundo um campo escolhido 
pelo usuirio. Assim, os registros sSo 
transferidos para um novo arquivo, com 
a mesma estrutura do original e uma no- 
va ordena9ao. 

Ji o INDEX 6 um comando que per- 
mite ordenar logicamente um arquivo 
segundo uma chave qualquer. Isto quer 
dizer que o dBase, aldm do banco de 
dados original, cria um outro arquivo 
de ponteirps que indica a ordem em que 
OS registros devem ser apresentados. Es- 
te aspecto constitui-se uma das princi- 
pals vantagens do pacote, pois po^bili- 
ta a escolha de qualquer campo para ser- 
vir como fndice, pennite criar chaves 
compostas (mais de um campo na chave 
de ordena9ao) e, com certos cuidados, 
pennite uso de campos de qualquer ti- 
po (numeric©, caracter ou 16gico) nas 
chaves criadas. 
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Compafivel 
com micros 
dos tipos CP 500, 
Digitus. Naja ou qualquer 
ouiro micro da Unha TRS 80, 
o programa Folha de 
Pagamenio e mais complelo 
desia Unha e irafacilitar a vida 
de sua empresa. 

A NASA JON oferece a voce e a 
sua empresa assistencia lecnica 
loial, garantia de um ano e esta 
a sua disposi^o para qualquer 
informafao ou esclarecimenios 
na area de informailca. Come 
com a NASAJON SISTEMAS. 



RELATORIO DO PROGRAMrt 
FOLHA DE PAGAMENTG 

• RGLACAO DE EMPREGADO-; 

- QUADRO DE HORARIOS 

- FOLHA DE PAGAMENTO 

- F-:E^UMCi DA FOLHA 
" RELACAO DE FQTS 

- GUI A DE FGTS 

■ RELACAO DE I .R. 

- GUI A DE lAPAS 

- RELACAO PARA BANCO 

- PEC T BO DE F'AGAMENTO 
E OI.ITROS. 



OUTROS PROGRAMAS 


PREC^O 


A disposi(;ao 


CRS 


Conirole de Estogue 


357. 0(10. (Ml 


Mala-direla c/Ed. Texio 


446.000.00 


Comas a pagar ' receber 


26S.0OO.m 


Tesoiiraria /C'' soldo bancdnoi 


268. 000. m 


Crediario 


536.0O0.(HI 


Ciiniabilidade 


35 7. 000. Oil 




no/cuoA 



^ r 



/irtemo/ 



Av. Rio Branca, 45 - s/I3ll-RJ 

CEP. 20.090 
Tel.: (021) 263-124} e 233-0615 



Voce emonlra os programas NASAJON lamhem nos seguintes 
revendedores: 

Rio de Janeiro: Casa Carson: 252-9191: S25-64SS: 541-2345 

e 252-2050 r. 179- Eldorado Compuladores: 227-0791 - Bits 

eBvies: 322-1960. 

Salvador: Of/icina: 248-6666 r. 26S 

Sao Paulo: Microprocess: 64.0468 - Jundiai - SP 

Apoio Com. In/ormdiica Lida.: 51-3778 - Tatui - SP 



OdBASE It.POR ETAPAS 



CP400 COLOR. 



"condi9ao" para uma apresenta^ao sele- 
tiva. 

As formas aqui mencionadas apresen- 
tam inconveniente de permitir o uso de 
um unico arquivo. Caso os dados a se- 
rem apresentados se encontrem em mais 
de um arquivo, deve-se criai um progra- 
ma. 

OUTROS RECURSOS 

Uma s^rie de outras fun9Ses encon- 
tram-se disponi'veis no dBase II, servin- 
do como complementa9ao do pacote. 
Assim, para auxiliar a manipula^ao de 
arquivos, por exemplo, conta-se com os 
seguintes comandos: 

COPY - copia um arquivo existente pa- 
ra outro. Pode-se copiar todos os dados; 
alguns dados selecionados (com o uso 
do sufixo FOR) ou somente a estrutura 
do arquivo, sem os dados (com o uso do 
sufixo STRUCTURE). 

APPEND FROM - traz os dados de um 
determinado arquivo, acrescentando-os 
ao fim do arquivo em uso. 

JOIN - permite juntar dois arquivos, 
formando um terceiro que ^ composto 
por campos dos dois originais. Uma con- 




. DISPLAY NOME,CIDflOE,POIS FOR PAIS <> 'RRflSIL' 

00007 PLBERTO FRANCO ROnA ITMLIP 
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Uso do sufixo FOR : no exemplo da agenda de enderegos, a condifdo foi 'am igos de fora do Brasil '. 



di9So de igualdade deve ser fomecida 
para coordenar a jun^ao. 

TOTAL - permite criar novo arquivo, 
com totais dos campos desejados. 

UPDATE - permite alterar dados de um 
arquivo, substituindo-os ou somando-os 
com OS dados provenientes de um outro 
arquivo. 

Outros comandos existem que facili- 
tarn a cria9ao e o manuseio de variiveis 
intemas, que poderao ser impressas, gra- 
vadas em arquivo ou utilizadas em com- 
para95es. Veja a segyir: 

STORE - para guardar um valor (infor- 
mado ou proveniente de um arquivo) 
mmia vari^vel. 

SUM - semeihante ao comando TOTAL, 
por^m somando os valores numa varid- 
vel interna. 

COUNT - conta asocorrenciasdedeter- 
minada condi9ao, guardando o resultado 
numa variavel. 

COMANDOS DE PROGRAMA^AO 

dBase permite ainda a execu9ao de 
rotinas pr6-definidas atraves do uso do 
comando DO "rotina". A rotina cha- 
mada deve ter sido previamente criada, 
utilizando-se as facilidades do dBase (o 
comando MODIFY COMMAND) ou um 
editor de textos qualquer. A linguagem 
do dBase 6 totalmente estruturada, e 
al^m de todos os comandos vistos at^ 
aqui, existem alguns que sao especificos 
da etapa de programa9ao. Veja alguns 
exemplos; 

Exemplo 1: 
IF coiidi9ao 

comandos desejados 

ELSE 

comandos desejados 

ENDIF - se a condi9ao € satisfeita, exe- 

cuta primeiio bloco de comandos; se- 

nSo segundo bloco. 

Exemplo 2: 

DO WHILE condifao 

comandos desejados 

ENDDO — executa os comandos enquan- 
to a condifSo for verdadeira. No caso de 
se querer voltar ao inicio do DO WHILE 
sem executar todos os passos, utiliza-se 
LOOP. 



Exemplo 3: 
DO CASE 
CASE condi95o 

comandos desejados 
CASE coDdi9ao 

comandos desejados 



OTHERWISE 

comandos desejados 

ENDCASE - executa os comandos abai- 

xo da primeira condi9ao verdadeira, ou 

05 comandos abaixo do OTHERWISE. 

LIMITAgdES 

Cada arquivo poderi ter, no miximo, 
65535 registros, cada qua! com al^ 32 
campos e capacidade de 1000 bytes. 
Al^m disto, somente dois arquivos po- 
dem ser utilizados simultaneamente 
(PRIMARY - SECONDARY), e um ma- 
ximo de 64 vari^veis intemas podem ser 
deflnidas. 

AVALUCAO 

A recupera9ao de arquivos indexados 

6 muito boa; j^ o tempo de execu9ao de 
rotinas 6 algo lento quando comparado 
com programas compilados, mas por se 
tratar de linguagem interpretada, este 
tempo pode ser considerado satisfat6rio. 

conjunto de comandos e instru95es 
disponi'veis 6 excelente, atendendo com 
perfei9ao em 90% das aplicafSes, sendo 
que as principals deficiencias estSo rela- 
cionadas i parte num^rica, onde s6 se 
dispde das quatro opera95es elementares 
es66 possi vel o controle de niimeros com 
at^ 10 casas decimals, na vers3o norte- 
americana, e, segundo a Datal6gjca, de 
16 casas na versao brasileira. 

A documenta9ao fornecida 6 bastan- 
te completa permitindo um aprendizado 
rdpido, al^m de ter sido construi'da de ^ 
forma a facilitar as consultas. K 



FHippo Galante 6 s6cfo-gerente da Flga fnfor- 
mdtica e trabaiha hA mais de dez anos na iree 
de desenvoivimento de sistemas, sendo os Oh 
timos dois anos com o uso intensivo do dBase 
//. 
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VrKllB! yLX E^AR PKEPAKAlX) 
mji S£ DES£NTni>n COM OS 

<ov(ts TEMPOS [>l:e KSTAO AI 1 

:P4ffl}C()IX)REACHA\'EDFSK.^ 
i\'0[.ytAO PESSOAL I PRORSSIDNAL 





PORQUEO 

CP 400 COLOR t 

LIManiPITADOR 

PESSOAUIF 

TEMmCVTTXiRAL: 

OTPAKAA 

FAAIIUA TODa. |)IA INTKRO 

NAl|[lRAUKStllJl\>:KTlR,FOR 
E.XLMIli ). t Ml m ) MAIS RM( M:t( ) 
N A-NTE KJfty L:E, AIIm [>K { )FFJtFX:£R 
\iXm iNElJn f IS. (vO l"M(> I COM 

1 j(ftyncKS ANA[.(Wi(:os m alta 

S^SSIH[[JUU)E. g] :F PHRMTTE-M M& 
\IMf.\TAR AS IMAtlENS ILM TORA? 
ASlilREgOES. MES^MO NAHUK.^ 
DEm^MAl.HAKK mVll^R. OCP^iOll 
COU.JH MnSTK.^ (1 SKI' UI)(]SERrO; 
MEMORIA LKPANSim. PORTA PARA 
COMLXfCAgAO HE DAIXJS. SAIDA 
PARA LMPRKSSORA. E [MA (Mma 
SXmn COM IMAGF.\S COLOMMS 

coMost:Ti:[M>]ssosAo 
ba.stas;e, a pk()|/k;i(:a aimw ofe- 

RECE A (iAJWMlA IE gi AUI )A[)E 
DEijlEM t UI3ER SATECNOMKJLA 
DE CONtPl TAU( >RLS, 1 PRf^O 
MALS ACESShU SA C\TE00R1A. 

NUMAFRASE:SEV()ciNACI 
yl'LSEH OiRtiAR ATRAiAlKJ AO Kt!. 

r'ro. comi^sei cp 4(i0(^ch^)r 
lmeiiiatamknit: 

EHO^AO E INTELtt;fe.\CIA NUM 
E0l[P.\MLNTOS6. 

• MICRtH'KOilXSAlXJR: ««MEO>.M 



ESTRlfTLTtA INTERNA IJE 

I MMTS £ CU>CK DE FERjtitNOA 

DEATH I, ^T MHZ, 
•P(JSSIBIIJ1A(H^[)EATE 

CORES. E TE.M IMA RESdl^ 

GRAFlCASUI^tJR A 49.000 

PONTOS 
•MEMt'jRlAEWMilGKmTES 

lAR.^ SL^TE-MA OPtM:iONAL E 

INTERS; f.\lK>Rli.ASI(: 

• MEMtlRJA RAM- CP 4<JlhaHX)R 
ESTA DLSP(Wf\E[. FA1 IX)iS MOUELOS: 

• MOPELO ](rf\: 
EXPANJ^ELA 

'MODa/H^K 
Ar&(>iKB\TES 

y[X\[MKSA|Xi 
COM PLSpLfETES 
(DISPONMa. 
iM DEZJ.MBRQ), 

• O LP 400 rOLOR DiSPOE HE 
CaRT[:CHOS i>E PROGRAJiUS COM 
U*mTBnECAPAC[[UDE. 

Q[ E Pf:KMiTF_M n carrh;a,me.\to 

INSTANTAXEOUEIOUJS, 
liVii:A(;ENS E APLfCATlVOSCOMCJ; 
lUNa) DE IJA^S. IfJVNiUlAS 
HE CALCl m. tDITORF.S DE TEXTOS 
APIJCAm<iS RNANCEEROS, 

APuc^iivos oRAncos, nc 

■S.AlDASEiyAl,RS2i2CyE:E 
Ph3t^^!ITE a)MllMCAgA( ) DE DADOS 

,\liMDOQi;E,ATRAVfoDESTA 
P(tRTA.V(X£PODE(;t)NECTAR 



(ESSOU^ SERIAI 




l^iAljQIF-K LMPRESSOU^ SERIAI 
OliAHMESMO 
fOR-MAR IM^ 
REDE DETH.ABA 
UK) COM 
OITROS MICROS 
•PORTA PARA 
GRAVAlKJRCVi^ 

Shi E cm grava<;ao e {mmx 

[tEAl.TAVHXJCn^iE, 
■ SAfllAS PARA T\ EM CORES E MOM- 
TOR PRORSSlOSAL 

• DIAS F^NTRADAS PASA lf)V5nCKS 
ANALC)GICt>S \)\J. OFEREi:EM 
INRNITaS P( Wfi )KS ,VA TFJ.^ . 
ENgi. AN T< \ 0[TK{fS TEM SOMENTE 
f^DlKEgOES 

• ?^\\^^ HIBUOTECA DESOFTftARE 
JADLSKWREL. 

•AJJMENTAgAO: 1 10^320 VtSH^. 



CR4 

\EjA/j>MTn:oym: 

SEt; CPiOO C0[,OR N( \^ .VtAGAZLVES 
E REVeSt)EDORES PROIXXJICA. 

■■■ PROLOGICA 

■■^ microcomputadDres 

I tfiii'iliV'iL'^ 



.^WCCMP 




XJEM TEM UMJEM FUTURO. 
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Vl^i/i vDC^ tern a melhor 
itudagSoem 
tmcroconuMitaQSo 
que existe. 

O TK &S }6 ens/if>ou moii ds 2 mllhSes th pessoos 
B(o 6 muito i6cSi d& operor. Usoo Basic, e a memdria ch-epa 
Mt^6^Khvtei. ^oc&itcmor}ilof. impressoro v ioy^tick, 
um imtante vocd vai esf<ir reso'vwido probJemos 
romondo, QvvencQndoosrnutiosjogo^disponfveis. O 

1 — . M 1 . . - tl i_i, 1 .— T i J X .... r_ -J] . *iJ_ 



id yoc§ji aplma 
seus c€mheciiiftentos 

Com TK fi5 voce tomb^m pode se d^ver^/r mu(fo: eie 
,ni d&zena% de /ogos drspon/vefs. 

IMos ©Je jid ^ ma'5 soUsticijdo Tem soffwore /6 pronto 
Unguagen^ Baste'e Assembler. Tecfadtriipo m6quina de 
Aicrever. cttm 40 tecioi G ?60funrdes. i6ou 48 Kde 
ifSfrtdrfa RAM. e iOdsROM. Grava^ao em high-speed. 
tun^So Vefiiy. poramolty ^^guronvo. 

croc^mpufofoo. e/e voi corresponds foJo/me." '-? 



TK2000 
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Aquivoc^mo 
UkIo o que sabe. 

O rK 2000 Co^of tern /udo que OS 
me\hore% mfcros J6m, Menos opre^o 
Acey^odisfcel^e. /mpf&ssoraf/db'em^rom 
(nferfocej, a(to resoiofdogrfi^icodcores 
podendo ser /Igodc oo seu TV ^o/orldo 
oy PflB- Tern b4kde mem6r/a flAM e 
/6 k de memdr/o ROM Com sxrefenfe 
■*'(wore disponrve/. 

Vocd pode mosfror li/do o que sob^ 
iSm predsQT mca/rof muiifo dfnhej^m. 
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